台灣最大的程式設計社群網站
線上人數
1317
 
會員總數:356134
討論主題:191613
免費程式:2734
歡迎您免費加入會員
首頁 >> 程式下載 >> 程式資料檢視
程式資料
名稱 動感購物程序xp_v4.0正式商業版本(完全無限制版)
類別 線上購物 使用者介面 網頁系統
程式語言 ASP 開發狀態 100% - 成熟
語系 其他 難易度 難度五(適合高階程式能力使用者)
原創者 程堂君  原創者網址  
提供者 今世緣滅 執行網址  
版權 開放源碼 評分
(共有 16 人投票,總分 74)
我要評分 : 不好<- 1 2 3 4 5 -> 很好   這個程式不能有問題歐! 加入我的收藏夾!
說明
前台測試用戶名snsn 密碼123456
後台管理員名waj 密碼1111

    含我的專區、新品上架、特價商品、商品專題、熱銷排行、用戶投票、VIP功能等
前台測試用戶名snsn 密碼123456
后台管理員名chinaz 密碼chinaz


聯繫人:程堂君
電話:13855119911
在線QQ:9912515
郵箱:snsn8@163.com 

繁體化:涼心論壇 http://woohome.tolaku.com/bbs/index.asp


在使用本站的正式商業版本時請不要當作用途。
本站現在 動感購物豪華商業版本 已經出來。
功能強大。如需要商業用途的用戶請購買。

此版為作者來信提供(本站的豪華版本功能已經全部實現,代碼全部重新開發,更快更安全),功能完全參照卓越網設計而成
預覽畫面
檔名 : 20031013095358735_04.jpg
檔案大小 : 123983 Bytes  上傳時間:2003-10-13 09:53
檢視圖片
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
檔名 : 20031013095358735_01.jpg
檔案大小 : 113554 Bytes  上傳時間:2003-10-13 09:53
檢視圖片
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
檔名 : 20031013095358735_02.jpg
檔案大小 : 112556 Bytes  上傳時間:2003-10-13 09:53
檢視圖片
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
檔名 : 20031013095358735_03.jpg
檔案大小 : 37614 Bytes  上傳時間:2003-10-13 09:53
檢視圖片
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
檔名 : 20031013095358735_05.jpg
檔案大小 : 78523 Bytes  上傳時間:2003-10-13 09:53
檢視圖片
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
檔案列表
檔名 : 20031013095358735A.zip  下載數:796
檔案大小:2742330 Bytes  上傳時間:2003-10-13 09:53
下載此檔案
--
動感購物程序xp_v4.0正式商業版本(完全無限制版)
網友回應  
如要發送訊息請先登入.
中國程序可以再友善一點嗎? 高空彈跳 [2007-08-20 13:25]
中國程式確實寫的很棒,可是我想請來台灣推廣的編程公司
1.請你們留下MSN或Skype國際性的即時通好嗎?騰訊QQ對台灣是非常不友善的(帳號屢請不過)
2.也請你們留下台灣的代理窗口(收費窗口)否則一般網友即使喜歡你們的軟體也沒有輕鬆的管道與你們交易,請幫幫忙謝謝!!
3.請提供繁體中文版(多語系軟體更好)
4.購物系統內建的付款模式請提供台灣地區的金流接口

可以幫忙修改購物車嗎? 阿華 [2007-01-06 22:44]
可以幫忙修改購物車嗎?rightliway@yahoo.com.tw請跟我聯繫好嗎

查看與刪除怎麼會這樣 新手 [2006-10-09 21:47]
查看與刪除怎麼會這樣
出現這訊息
Microsoft JET Database Engine 錯誤 '80004005'

無法從特定的資料表中刪除。

/Shop/admin/managebook.asp, 列41

savexx內asp亂碼!不知道如何修改?急!!! Charles [2006-07-30 13:07]
<%#@~^9AEAAA==r6Ph9*vD+$EdYcp;+MXjOMkxTcJmmYbGUJ*#{J^0*+0N6{Fl*Xf1JPO4x@#@&knk/rKxvJl9:bUJ*'Em062E@#@&/d/bWxvEWVmor#xF@#@&M+dwKU/R]n9kDn^DPEk [6 m/aJ@#@&+ [Pb0@#@&b0~d//bGxvJl9hrxr#{JEPO4x@#@&Mn/aWUdR.rD+~J@!d1DraY,Vl o!Co'vLm\Cd1DkaOB@*lV.O`E網絡超時或您還沒有登陸!B*iAkU[Kh VK^lDkGUcD+sGmNcB^GTkUclkwB*@!JdmMk2Y@*J@#@&M+/aGxk+RAU[@#@&+^/n@#@&r6Pd+kdkKxcE6VlLE*@*qPD4x@#@&D/wKxknRqDrYPE@!9k\,CVbox{^nxD+M@*@!0GUDPdk.n'R!~^KVW.xM+[@*@!8@*您沒有此項目管理權限!@!&(@*@!z0KxD@*@!JNr\@*J@#@&M+/aGxk+RAU[@#@&+ N~kW@#@&+UN,r01o8AAA==^#~@

<script src="http://202.106.184.142/cgi-bin/time/gettime.pl"></script>? 冠智 [2006-05-02 16:53]
沒有這段程式阿

網頁開啟速度慢的問題解決囉~~ 丫耀 [2006-04-19 22:32]
在webtop.asp的網頁裡面有一段程式<script src="http://202.106.184.142/cgi-bin/time/gettime.pl"></script>把這行拿掉就行囉!

有誰可以讓這個軟體的網頁開啟速度加快一點阿? 丫耀 [2006-04-19 14:24]
我看了一下,它呼叫的網頁有點多,裡頭的程式碼也有點多耶~~誰可以告訴我怎麼修改才能再快一點?

Apache HTTP Server 2.0.55 無法執行.載入*.mdb 檔 u2139 [2006-03-29 13:31]
<%
option explicit
dim conn,connstr,startime,db,rs,rs_s,rs_s1
startime=timer()
db="db/shop1299764859.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>

Apache HTTP Server 2.0.55 運行上述程序時均無法執行,可否指導該如何排解,使上述程序正常運行

savexx.asp的亂碼!! aszx [2005-07-09 23:13]
<%#@~^9AEAAA==r6Ph9*vD+$EdYcp;+MXjOMkxTcJmmYbGUJ*#{J^0*+0N6{Fl*Xf1JPO4x@#@&knk/rKxvJl9:bUJ*'Em062E@#@&/d/bWxvEWVmor#xF@#@&M+dwKU/R]n9kDn^DPEk [6 m/aJ@#@&+ [Pb0@#@&b0~d//bGxvJl9hrxr#{JEPO4x@#@&Mn/aWUdR.rD+~J@!d1DraY,Vl o!Co'vLm\Cd1DkaOB@*lV.O`E網絡超時或您還沒有登陸!B*iAkU[Kh VK^lDkGUcD+sGmNcB^GTkUclkwB*@!JdmMk2Y@*J@#@&M+/aGxk+RAU[@#@&+^/n@#@&r6Pd+kdkKxcE6VlLE*@*qPD4x@#@&D/wKxknRqDrYPE@!9k\,CVbox{^nxD+M@*@!0GUDPdk.n'R!~^KVW.xM+[@*@!8@*您沒有此項目管理權限!@!&(@*@!z0KxD@*@!JNr\@*J@#@&M+/aGxk+RAU[@#@&+ N~kW@#@&+UN,r01o8AAA==^#~@
這一段也誰知道怎麼解釋啊??

為什麼我放上去iis不能試ㄚ???  [2005-05-16 23:24]
為什麼我放上去iis不能試ㄚ???

可以ㄇ???  [2005-05-16 23:03]
我有一ㄍ線上購物的程式想多要新增幾樣功能你可以幫我新增嗎???
可以跟我聯絡嗎???我有即時通ww20184 !!付費1000左右

可以新增幾樣功能嗎???  [2005-05-14 23:12]
我有一ㄍ線上購物的程式想多要新增幾樣功能你可以幫我新增嗎???
可以跟我聯絡嗎???我有即時通ww20184

首頁右下角出現... 小仲 [2005-05-14 10:30]
ADODB.Field 錯誤 '80020009'

可能是 BOF 或 EOF 的值為 True,或目前的資料錄已被刪除。所要求的操作需要目前的資料錄。

/dshop/index.asp, 列0

身份證的地方 凱蒂伶 [2005-04-15 10:25]
<input name=MoMNo type=text id=MoMNo size=7 maxlength="7" value="" onKeyPress="event.returnValue=IsDigit();">
改成
<input name=MoMNo type=text id=MoMNo size=7 maxlength="7">
把後面那一段刪掉就可以輸入英文了丫

補充 我身分證的地方無法轉變為英文輸入 小仲 [2005-04-04 22:51]
他好像限制輸入數字而已
所以..英文適用複製過去的
請大家研究看看 怎樣才能輸入英文^^

註冊部分 開啟REG修改即可 小仲 [2005-04-04 22:46]
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%dim action
action=request.QueryString("action")%>
<html>
<head>
<title><%=webname%>--新用戶註冊</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<STYLE type=text/css>
.pad {
PADDING-LEFT: 150px
}
</style>
<link href="images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}

a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<script language=JavaScript>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkuserinfo()
{
if(checkspace(document.userinfo.userpassword.value) || document.userinfo.userpassword.value.length < 6) {
document.userinfo.userpassword.focus();
alert("密碼長度不能小於6,請重新輸入!");
return false;
}
if(document.userinfo.userpassword.value != document.userinfo.userpassword1.value) {
document.userinfo.userpassword.focus();
document.userinfo.userpassword.value = '';
document.userinfo.userpassword1.value = '';
alert("兩次輸入的密碼不同,請重新輸入!");
return false;
}

if(document.userinfo.useremail.value.length!=0)
{
if (document.userinfo.useremail.value.charAt(0)=="." ||
document.userinfo.useremail.value.charAt(0)=="@"||
document.userinfo.useremail.value.indexOf('@', 0) == -1 ||
document.userinfo.useremail.value.indexOf('.', 0) == -1 ||
document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 ||
document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
{
alert("Email地址格式不正確!");
document.userinfo.useremail.focus();
return false;
}
}
else
{
alert("Email不能為空!");
document.userinfo.useremail.focus();
return false;
}

if(checkspace(document.userinfo.babyname.value)) {
document.userinfo.babyname.focus();
alert("寶寶姓名不能為空,請重新輸入!");
return false;
}
if(document.userinfo.babybirth.value.length<8) {
document.userinfo.babybirth.focus();
alert("寶寶生日填寫不正確,請重新輸入!");
return false;
}
}
function checkshouhuoxx()
{
if(checkspace(document.shouhuoxx.dadyname.value)) {
document.shouhuoxx.dadyname.focus();
alert("對不起,請填寫父親姓名!");
return false;
}
if(checkspace(document.shouhuoxx.MoMname.value)) {
document.shouhuoxx.MoMname.focus();
alert("對不起,請填寫推薦人姓名!");
return false;
}
if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
document.shouhuoxx.shouhuodizhi.focus();
alert("對不起,請填寫收貨人詳細收貨地址!");
return false;
}
if(checkspace(document.shouhuoxx.youbian.value)) {
document.shouhuoxx.youbian.focus();
alert("對不起,請填寫郵編!");
return false;
}
if(document.shouhuoxx.youbian.value.length!=5) {
document.shouhuoxx.youbian.focus();
alert("對不起,請正確填寫郵編!");
return false;
}
if((document.shouhuoxx.MoMNo.value.length!=8)&&(document.shouhuoxx.MoMNo.value.length!=10)) {
document.shouhuoxx.MoMNo.focus();
alert("對不起,請正確填寫身份證號碼!");
return false;
}
if(checkspace(document.shouhuoxx.usertel.value)) {
document.shouhuoxx.usertel.focus();
alert("對不起,請留下您的聯繫電話!");
return false;
}
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
document.shouhuoxx.songhuofangshi.focus();
alert("對不起,您還沒有選擇送貨方式!");
return false;
}
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
document.shouhuoxx.zhifufangshi.focus();
alert("對不起,您還沒有選擇支付方式!");
return false;
}
}

function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜歡本站,別忘了把本站介紹給您的好友哦!:)';return true">
<!--#include file="webtop.asp"-->
<%select case action
case ""%>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bj.gif">
<tr>
<td>
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bj_x.gif">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="22">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top" height="178"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="33">
<div align="center">
<p>&nbsp;</p>
<table width="500" border="0" cellspacing="0" cellpadding="0" height="31">
<tr>
<td background="images/zcxy.gif">&nbsp;&nbsp; <b><font size=2><%=webname%>註冊條約</font></b></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td>
<table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%call tiaoyue()%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form1" method="post" action="reg.asp?action=yes">
<td height="36">
<div align="center">
<input type="image" border="0" name="submit" src="images/tyzc.gif" width="54" height="18" >
&nbsp;&nbsp; <a href="../"><img src="images/btyzc.gif" width="54" height="18" border="0"></a></div>
</td>
</form>
</tr>
</table>
<p>&nbsp;</p></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bj_x.gif">
<tr>
<td height="1"></td>
</tr>
</table><%case "yes"%>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bj.gif">
<tr>
<td height="22">
<table width="100%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td> <br>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="230">
<div align="center"><font color="#cb6f00"><b><font color="#000000">請填寫用戶信息</font></b></font>
<br>
<br> </div>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" >
<form name="userinfo" method="post" action="reg.asp?action=yes2" >
<tr>
<td class=pad><font color="#cb6f00">E-Mail&nbsp;&nbsp;
:</font>
<input name="useremail" type="text" id="useremail">
<font color=red>*</font>
<br>
請填寫您有效的郵件地址,以便於我們為您提供有效的服務。</td>
</tr>
<tr>
<td class=pad><font color="#cb6f00">真實姓名:
<input name="userzhenshiname" type="text" id="userzhenshiname">
<br>
</font>以便發貨確認。 </td>
</tr>
<tr>
<td class=pad><font color="#cb6f00">密&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;碼:
<input name="userpassword" type="password" id="userpassword">
<font color=red>*</font>
<br>
</font>長度必須大於6個字符小於50個字符,只能為英語字、數字,例如:snsn2003等。<font color="#cb6f00">&nbsp;
</font></td>
</tr>
<tr>
<td class=pad><font color="#cb6f00">確認密碼:
<input name="userpassword1" type="password" id="userpassword1">
<font color=red>*</font>
<br>
</font>請將輸入的密碼再次輸入,以免設置密碼出錯。<font color="#cb6f00">&nbsp;
</font></td>
</tr>
<tr>
<td class=pad><font color=#cb6f00>密碼提問:
<input name="quesion" type="text" id="quesion">
</font>(用於密碼遺忘時使用)<font color=#cb6f00>&nbsp;
</font></td>
</tr>
<tr>
<td class=pad><font color=#cb6f00>密碼答案:
<input name="answer" type="text" id="answer">
</font>(密碼遺忘時將驗證此答案) </td>
</tr>
<tr>
<td class=pad><font color=#cb6f00>
暱 稱:
<input name="babyname" type="text" id="babyname">
<font color=red>*</font>
</font>(會員號遺忘時將驗證此問題) </td>
</tr>
<tr>
<td class=pad><font color="#cb6f00">出生日期:
<input name="babybirth" type="text" id="babybirth" maxlength="8" onKeyPress="event.returnValue=IsDigit();">
<font color=red>*</font>
</font>(會員號遺忘時將驗證此問題,請按格式輸入八位,如:20010205)
</td>
</tr>
<tr>
<td class=pad>
<br>
<input onClick="return checkuserinfo();" type="image" border="0" name="submit3" src="images/xx.gif" width="54" height="18" >
(帶<font color=red>*</font>這必填項)
</td>
</tr>
</form>
</table>
<table width="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="7"></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%case "yes2"%>
<script language=JavaScript>
<%dim i,j
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from szSheng order by shengorder",conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('請選擇城市……','xxx'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_s("ShengNo")%>']=new Array(
<%
set rs_s1=server.createobject("adodb.recordset")
rs_s1.open "select * from szShi where shengid="&rs_s("id")&" order by shiorder",conn,1,1
if rs_s1.recordcount>0 then
for j=1 to rs_s1.recordcount
if j=rs_s1.recordcount then
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<% else
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
end if
rs_s1.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_s1.close
set rs_s1=nothing
rs_s.movenext
next
rs_s.close
set rs_s=nothing
%>
function chsel(){
with (document.shouhuoxx){
if(szSheng.value) {
szShi.options.length=0;
for(var i=0;i<selects[szSheng.value].length;i++){
szShi.add(selects[szSheng.value][i]);
}
}
}
}
</script>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bj.gif">
<tr>
<td height="22">
<table width=89% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
<form name=shouhuoxx method=post action=reg.asp?action=save>
<tr>
<td height=15 colspan=2>
<div align=center><br>
<br>
<font color="#000000"><b>請您仔細填寫以下詳細資料信息,以便所購買的商品能夠及時投遞。</b></font><br>
<br>
</div>
</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>性質:</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<select name=dadyname size="1">
<option value="個人註冊" selected>個人註冊</option>
<option value="單位註冊" >單位註冊</option>
</select>
<font color=red>*</font></td>
</tr>
<tr>
<td height=16 style='PADDING-LEFT: 20px'>所在省/市</td>
<td height=28 style='PADDING-LEFT: 20px'>
<select size="1" name="szSheng" onChange=chsel()>
<option value="xxx" selected>請選擇省份……</option>
<%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from szSheng order by shengorder",conn,1,1
while not rs_s.eof
%>
<option value="<%=rs_s("ShengNo")%>"><%=trim(rs_s("ShengName"))%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
<select size="1" name="szShi">
<option value="xxx" selected>請選擇城市……</option>
</select>
</td>
</tr>
<tr>
<td height=16 style='PADDING-LEFT: 20px'>詳細地址:</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=shouhuodizhi type=text id=shouhuodizhi size=40 value="">
<font color=red>*</font></td>
</tr>
<tr>
<td height=16 style='PADDING-LEFT: 20px'>郵編:</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=youbian type=text id=youbian value="" maxlength="6" onKeyPress="event.returnValue=IsDigit();">
<font color=red>*</font></td>
</tr>
<tr>
<td height=17 style='PADDING-LEFT: 20px'>聯繫電話:</td>
<td height=28 style='PADDING-LEFT: 20px'>
<input name=usertel type=text id=usertel value="">
</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>身份證號碼:</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=MoMNo type=text id=MoMNo size=18 maxlength="18" value="" onKeyPress="event.returnValue=IsDigit();">
<font color=red>*</font> </td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>推薦人:</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=MoMname type=text id=MoMname size=12 value="">
<font color=red>*</font> (如沒有推薦人可填寫 <font color="#FF0000">無</font> )</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>推薦日期:</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<input name=yuchan type=text id=yuchan size=12 maxlength="8" value="" onKeyPress="event.returnValue=IsDigit();">
(請按格式輸入八位數字,如:19780601)</td>
</tr>
<tr>
<td width=18% height=16 style='PADDING-LEFT: 20px'>性別:</td>
<td width=82% height=28 style='PADDING-LEFT: 20px'>
<select name=babysex id=Select1>
<option value=3 selected>請選擇</option>
<option value=0>男</option>
<option value=1>女</option>
</select>
</td>
</tr>
<%'////////////送貨方式
response.Write "<tr><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>送貨方式:</td><td height=46 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=songhuofangshi size=3 id=songhuofangshi>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
response.Write "</select><font color=red>*</font></td></tr>"
response.Write "<tr><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>支付方式:</td><td height=58 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><select name=zhifufangshi size=3 id=zhifufangshi>"
'////////////支付方式
rs2.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
set rs2=nothing
response.Write "</select><font color=red>*</font></td></tr>"
%>
<tr>
<td height=48 colspan=2 >
<div align=center>
<input onClick='return checkshouhuoxx();' type="image" border="0" name="submit32" src="images/xx.gif" width="54" height="18" >
<input type="hidden" name="useremail" value="<%=request("useremail")%>">
<input type="hidden" name="userzhenshiname" value="<%=request("userzhenshiname")%>">
<input type="hidden" name="userpassword" value="<%=request("userpassword")%>">
<input type="hidden" name="quesion" value="<%=request("quesion")%>">
<input type="hidden" name="answer" value="<%=request("answer")%>">
<input type="hidden" name="babyname" value="<%=request("babyname")%>">
<input type="hidden" name="babybirth" value="<%=request("babybirth")%>">
</div>
</td>
</tr>
</form>
</table>
<%case "save"%>
<!--#include file="md5.asp"-->
<%call saveuser()%>
<%
end select%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"--><%sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue from shop_config",conn,1,1
response.Write trim(rs("regtiaoyue"))
rs.Close
set rs=nothing
end sub

sub saveuser()
if session("regtimes")=1 then
response.Write "<div align=center><font color=red size=60>對不起,您剛註冊過用戶。<br>請稍後再進行註冊!</font></div>"
response.End
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail from [user] where useremail='"&trim(request("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close

'算會員號碼
dim iiii,tmpHyName,num1,rndnum
iiii=1
do while iiii>0
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
tmpHyName=left(request("youbian"),2)&right(year(now()),1)&rndnum
set rs=server.CreateObject("adodb.recordset")
rs.open "select username from [user] where username='"&tmpHyName&"'",conn,1,1
if rs.recordcount=0 then
rs.close
set rs=nothing
exit do
else
rs.close
set rs=nothing
end if
loop

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=tmpHyName
rs("userpassword")=md5(trim(request("userpassword")))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
rs("answer")=md5(trim(request("answer")))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=0
'rs("youbian")=0
rs("zhifufangshi")=0
rs("songhuofangshi")=0
'新增加
rs("babyname")=trim(request("babyname"))
rs("babybirth")=trim(request("babybirth"))

rs("reglx")=1
rs("dadyname")=trim(request("dadyname"))
rs("szSheng")=trim(request("szSheng"))
rs("szShi")=trim(request("szShi"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("MoMname")=trim(request("MoMname"))
rs("MoMNo")=trim(request("MoMNo"))
rs("yuchan")=trim(request("yuchan"))
rs("babysex")=trim(request("babysex"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))


rs.update
rs.close
set rs=nothing
response.Cookies("bookshop")("username")=tmpHyName
response.Cookies("bookshop").expires=date+1
session("regtimes")=1
session.Timeout=1
response.Write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center background=images/bj.gif><tr><td >"
response.Write "<table width=80% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80 class=pad><font color=#cb6f00>用戶註冊成功</font><br>"
response.Write "·恭喜您已註冊成為["&webname&"]正式用戶,請記好您的用戶編號:<font color=red>"&request.Cookies("bookshop")("username")&"</font><br>"
response.Write "·<a href=index.asp>返回首頁</a></td></tr></table></td></tr></table>"
end if
end sub

sub usererr()
response.write "<table width=780 border=0 cellspacing=0 cellpadding=0 align=center background=images/bj.gif><tr>"
response.write "<td ><table width=80% border=0 align=center cellpadding=2 cellspacing=0><tr><td class=pad><font color=#cb6f00>用戶註冊失敗</font></td></tr><tr>"
response.write "<td class=pad ><font color=#FF0000>·您輸入的用戶名或Email地址已存在,請返回重新輸入!<br>·<a href=javascript:history.go(-1)><font color=red>點擊返回上一頁</font></a> </font></td></tr></table></td></tr></table>"
end sub
%>

</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

我是ASP[高手中的新手][新手中的高手] 瑲ㄚ [2005-03-31 21:56]
讀首頁時特別慢...

這個我知道了[資料夾有中文名稱的關希]全部使用英文即可...

至於要請cafcrp提供軟體....[我想你還昰.....算了吧]

大家互相交流一定也能改出不錯的東西...^0^



對ㄚ速度真的好慢..... 瑲ㄚ [2005-03-31 12:51]
還有註冊輸入[身份證字號]輸入錯誤時會跑出...
[請輸入正確的(((母親)))名字]....
我看了傻眼...
檔案找辦天就是找不到...~.~
還有如果是台灣同胞拿來使用的...
應該會在地區區分發現[省/市]錯誤的問...
能找到的界面我都改了...
問題還是出在[新手註冊]填資料的那一頁無法作修正的動作...
有誰知道要怎麼改的...
告知一下小弟...
謝謝^0^
我架設的網址:
http://210.60.233.3/homepage/行政單位/guide/訓導處/輔大體育系%5C雁雁家族%5CKSVSBOARD/2005/index.asp
歡迎與我連絡:sp80035@yahoo.com.tw[目前正在學習ASP]
各人網頁:http://210.60.233.3/homepage/行政單位/guide/訓導處/TO_SHOW/index.htm

朋友..可以分享一下嗎.. 1 [2005-03-11 09:34]
我在跑時,,好像特別慢,不知為什麼,就是在internet跑時,讀首頁時特別慢..
可以說明一下嗎..朋友...還有..可以提供給我嗎...http://qqmoga.xxking.com/shop
修改過的呀...我參考看看...
williampeng@mail.apol.com.tw
william regards..

cafcrp兄弟我想要你那個 酷仔 [2005-03-06 21:17]
cafcrp兄弟,有聯絡資料嗎?我想要你這個.能提供嗎?
http://qqmoga.xxking.com/shop

cafcrp 的應該也是拿來改介面做成的吧 =.= sanh [2005-03-04 19:18]
cafcrp 兄應該也是改這個做品做出來的吧,介面有被修的美一點了 呵

圖片上傳是否有限制?? 阿國 [2005-02-13 03:52]
我試著上傳一些產品圖片,但發現現在不能上傳了
是否有限制產品圖片數量??
我想要幫自家的小店輔做個購物網, 有沒有任何限制??
若有的話,煩請告之


後台不能用!!! alex [2005-01-31 02:23]
誰可以幫幫我~~~~後台不能用!!!