導航:首頁 > 源碼編譯 > asp源碼會員消費系統

asp源碼會員消費系統

發布時間:2025-01-24 12:49:33

❶ asp程序實現簡單的注冊,登錄網頁的源代碼

1,(index.asp 用戶登陸頁面)
<!-- #include file="conn.asp" -->
<!-- blog.soowooo.cn 悠悠長假期 -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>會員</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
<p>會員注冊系統</p>
<form name="form1" method="post" action="login.asp">
<table width="34%" border="0">
<tr>
<td width="33%" height="30">用戶名:</td>
<td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td>
</tr>
<tr>
<td height="30">密 碼:</td>
<td height="30"><input name="password" type="password" id="password" size="15"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="確定">
<input type="reset" name="Submit" value="重置"></td>
</tr>
<tr>
<td colspan="2"><a href="reg.asp" target="_self">注冊</a></td>
</tr>
</table>
</form>
</center>
</body>

</html>

2,(login.asp 用戶數據處理文件)

<!-- #include file="conn.asp" -->
<%
'打開資料庫判斷用戶是否存在,info為表名,username為欄位名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("change.asp")
'如果用戶不存在,session("username")為空
%>
3,(change.asp 用戶信息修改頁面)
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改</title>
<style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
-->
</style></head>
<center>
<body>
<br>
<%

set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'"
rsc.open sqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
set rsc=nothing
if nr="" then
response.Redirect("index.asp")
end if
if strcomp(nr,request.Form("password"))=0 then
response.Write("歡迎你!"&request.Form("username"))
response.Write("你是在"&vv&"注冊的")
session("username")=request.Form("username")
end if
if session("username")="" then
response.Redirect("index.asp")
end if
%>
<form name="form1" method="post" action="change.asp?ac=ch">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名:</td>
<td width="73%" height="30"><input name="username" type="text" id="username" value="<%=username%>">
*</td>
</tr>
<tr>
<td height="30">密 碼:</td>
<td height="30"><input name="password" type="text" id="password" value="<%=password%>">
*</td>
</tr>
<tr>
<td height="30">性 別:</td>
<td height="30"><input name="sex" type="text" id="sex" value="<%=sex%>"></td>
</tr>
<tr>
<td height="30">QQ:</td>
<td height="30"><input name="qq" type="text" id="qq" value="<%=qq%>"></td>
</tr>
<tr>
<td height="30">Mail:</td>
<td height="30"><input name="mail" type="text" id="mail" value="<%=mail%>"></td>
</tr>
<tr>
<td height="30">地 址:</td>
<td height="30"><input name="add" type="text" id="add" value="<%=add%>"></td>
</tr>
<tr>
<td>介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"><%=personalinfo%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<a href="change.asp?se=y" target="_self">退出系統</a></td>
<% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%>
</tr>
</table>
</form>
<%
if strcomp(request.QueryString("ac"),"ch")=0 then
set rs=server.createobject("adodb.recordset")
sql="select * from info where username='"&session("username")&"'"
rs.open sql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
set rs=nothing
response.Write("修改完成!")
end if
%>
</body>
</center>
</html>
4,(reg.asp 新用戶注冊頁面)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶注冊</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
用戶注冊<br>
<%
=request.QueryString("msg")
%>
<form name="form1" method="post" action="addnewdata.asp?ac=adser">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名:</td>
<td width="73%" height="30"><input name="username" type="text" id="username">
*</td>
</tr>
<tr>
<td height="30">密碼:</td>
<td height="30"><input name="password" type="password" id="password">
*</td>
</tr>
<tr>
<td height="30">確定密碼:</td>
<td height="30"><input name="password2" type="password" id="password2">
*</td>
</tr>
<tr>
<td height="30">性別:</td>
<td height="30"><input name="sex" type="text" id="sex"></td>
</tr>
<tr>
<td height="30">QQ:</td>
<td height="30"><input name="qq" type="text" id="qq"></td>
</tr>
<tr>
<td height="30">Mail:</td>
<td height="30"><input name="mail" type="text" id="mail"></td>
</tr>
<tr>
<td height="30">地址:</td>
<td height="30"><input name="add" type="text" id="add"></td>
</tr>
<tr>
<td>個人介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
5,(addnewdata.asp 新用戶注冊數據處理文件)
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>成功</title>
</head>
<body>
<%
ac=request.QueryString("ac")
msg="注冊錯誤信息"
if request.Form("username")="" then
msg=msg&"<br>"&"用戶名不能為空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then
msg=msg&"<br>"&"兩次密碼輸入不同"
end if

if len(request.Form("password"))<6 then
msg=msg&"<br>"&"密碼太簡單"
end if

if strcomp(msg,"注冊錯誤信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"&request.Form("username")&"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck<>"" then
msg=msg&"<br>"&"用戶名被人注冊"
response.Redirect("reg.asp?msg="&msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
set rs=nothing
%>
<center>
<a href="index.asp" target="_self">注冊成功,點擊登陸</a>
</center>
<%
end if
%>
</body>
</html>

6,(conn.asp 資料庫連接文件)
<%
'連接資料庫開始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("userinfo.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="
'創建記錄對象
set rs=server.createobject("adodb.recordset")
%>

7,(userinfo.mdb ACCESS 資料庫)
在ACCESS中建一個表,然後在這個表中建立欄位名稱
表名:info

欄位名稱 數據類型
id 自動編號
username 文本
password 文本
sex 文本
quest 文本
qq 文本
mail 文本
personalinfo 文本
ntime 文本

❷ 網上書店系統源碼,網上書店 源碼 asp,書店源碼, 書店asp源碼下載,書店網站源碼,正在急尋免費正式版

網上書店系統源碼,網上書店 源碼 asp,書店源碼, 書店asp源碼下載,書店網站源碼,正在急尋免費正式版
摟主放心,我有一套網上書店,非常漂亮的,功能又特別強大的,現免費給網友下載

這是程序說明

軟體名稱:網上書店asp網站管理系統源碼正式版
軟體版本:V2008
建議分類:源碼下載/ASP源碼/電子商務
演示網站:http://www.aspcom.cn/wsgw
電信下載地址:http://www.aspcom.cn/dow/wsgw.rar
軟體容量:7000KB
軟體類型:簡體中文/免費版
應用平台:Win9x/Me/NT/2000/XP/asp+access
界面預覽:http://www.aspcom.cn/dow/wsgw.jpg
軟體介紹:後台管理: admin/login.asp 帳戶/密碼:admin/admin
網上書店asp網站管理系統源碼正式版(廣州購物系統),由專業網上購物公司開發的一套專業網上購物系統,網上開店系統,是中國最具營

銷潛力的專業網上購物網站管理系統源碼。讓客戶只需花幾百元就可以擁有功能強大的網上購物,是商家開店最佳系統!真正做到只會打字就可

以建立自己獨立的網上購物網站。是您網上開店首選購物程序。 輕松使用電子商務網站系統,網上銷售購物系統,使創業者成功。開店商城系

統(也稱為購物系統,網上商店系統),是方便企業及個人商家在網上產品展示及在線購物電子商務的系統軟體。網上購物網站管理系統是書店

企業及個人開展電子商務的一種形式,開店系統則是網上開店及產品展示的良好工具。有了開店商城系統,再加個域名和空間,就可以很方便

地建立屬於您自己的網上商店了。網上購物網站系統正式版為客戶提供域名注冊,空間租用及網站推廣等系列電子商務服務,讓您無開店之憂

,讓您輕松網上開店。本系統適合於如下關鍵字的人員使用:「網上購物網站管理系統源碼,網上購物論壇,網上購物商城,網上購物商城購物系

統,網上購物系統,在線購物系統,購物系統,購物軟體,網上購物,網上購物商城,電子購物系統,購物車系統,asp 購物系統,asp,虛擬購物系統,購

物平台,購物系統下載,購物軟體下載。網上購物網站系統正式版是基於WEB開發的大型購物系統。它以構建電子商務網站為目標,由前台購物、

後台管理、在線支付三大部分組成。各大部分完美結合,都有著最為完善和強大的功能,最大限度的滿足客戶在線購物和網站管理員管理的需

求。系統滿足各個級別用戶購建電子商務平台的需要。是構建各種大中小電子商務購物網站的首選系統!不需要專門編程,半天便能建立門戶

級專業電子商務購物網站。購物系統輕松管理維護,經濟效率實實在在看得見。如不會本機調試本系統,請查看《IIS安裝使用說明書》
網上購物網站管理系統源碼前台功能欄目
分類瀏覽商品或使用搜索工具查找商品;
可按價格、商品分類、關鍵字搜索商品
可列印訂單的詳細信息以及電子郵件通知;
保存購物車,查看購物車,清空購物車
查看已經提交的訂單;
會員注冊、享受會員價格;
會員登錄;
市場價,會員價和VIP會員價的比較;
為朋友訂購商品(送禮物的好辦法哦);
完整的客戶服務中心
新品上架展示區,推薦商品展示區,特價商品展示區,銷售排行展示區,關注排行展示區
閱讀、發表商品評論信息並顯示
顧客可選擇多種網上支付方式
顧客可選多種運輸方式並在結帳時自動加入所需費用
同類商品顯示
商品分類的名稱及圖片顯示
顯示商品詳細介紹以及相關產品
零售價,會員價VIP會員價顯示
商品顯示可按任何欄位排序
查看已經提交的訂單
客戶留言

網上購物網站管理系統源碼後台管理特徵:
店主管理--商店管理--強大的後台管理系統
添加、刪除、修改,移動商品分類
在線添加、(批量)刪除、修改商品
商品價格分市場價格,會員價格和VIP會員價格
在線訂單查詢,訂單處理、發布訂單處理跟蹤信息
每條訂單自動發送電子郵件給顧客和商店管理員
查看、刪除、修改會員資料功能
記錄會員下單購買情況和登錄情況
前台會員分非注冊會員、普通會員和VIP會員
管理員分三個不同的許可權等級, 使管理商城更加靈活
統計所有分類中商品數,並在前台顯示
商場購物卷積分功能
添加修改首頁新聞,首頁公告
編輯刪除商品評論,客戶留言
探測遠程伺服器,空間查看
廣告系統管理
管理網站文字友情鏈接和圖片友情鏈接
在線設定匯款方式、支付方式、購物流程、注冊條約、交易條款、常見問題、法律版權信息、運輸方式、保密安全、售前售後服務、工作時間

❸ 求高手幫忙修改一下簡單的網站源碼。就是加個會員登錄系統默認密碼的代碼,十分感謝!!!

看了一下你的文件。
可以使用兩種方式實現:
第一種,所有新增用戶密碼相同,一開始就設定好。例如都設置為123456
這種方式你把member_add.asp這個文件中,第51行改為
<td><input name="newpwd" type="password" id="newpwd" value="123456" style="width:60%"
maxlength="100" />
不修改留空</td>
第二種:
將初始密碼設置和會員編號一致,同樣也在member_add.asp這個文件中,你在文件末尾加上
<script type="text/javascript" language="javascript">
function SetPassword() {
document.form1.newpwd.value = document.form1.regvid.value;
}
</script>
。然後把51行修改為
<td><input name="newpwd" type="password" id="newpwd" value="" onfocus="SetPassword" style="width:60%"
maxlength="100" />
不修改留空</td>

你先部署試試看。如果還有問題,可以Hi我,大家一起交流。

❹ 尋一個ASP的在線顯示進銷存的簡單系統源碼

WEB進銷存管理系統功能介紹

產品入庫,入庫查詢 (對已有產品可快速入庫)
庫存管理,庫存調撥 (可設置庫存報警功能,庫存不足的情況下程序將自動報警)
產品出庫,出庫查詢
統計報表 (各時段統計)
會員管理
員工管理
工資管理
單位管理
倉庫管理
產品分類管理 (設置二級分類)

免費下載地址:
http://www.yuanma.cc/software/view-software-1678.html

❺ 小說網站源碼(帶採集功能的,最好是asp的)

復活小說站(帶採集功能) v4.6
* 源碼大小: 2.01 MB
* 源碼類別: 源代碼 | 影視娛樂
* 源碼語言: 簡體中文
* 運行環境: Asp/Access/
功能介紹:
1.帶採集功能,可自己了設計採集哪個站點,另內已存幾個好的小說網採集。
2.整合了廣告系統,可以直接修改廣告,不用每次都改網站代碼。

其他功能介紹:
一、會員功能模塊
1、站內簡訊發布(正在製作)
2、書架收藏夾
3、發表評論
4、申請作家(與添書員整合)
5、申請添書員(與作家整合)
6、申請更新員
7、VIP會員申請(請在「在線客服」中留言給管理員提出申請)

二、作家功能模塊
1、我的文章
2、發表新作
3、增加章節
4、作家專欄
5、VIP作品申請(正在製作)

三、添書員功能模塊
和作家功能類似,不在介紹
四、靜態圖書生成模塊
五、廣告管理模
六、後台管理模塊

網站的核心內容,功能如下:
1、系統參數配置
2、網站數據備份
3、在線執行SQL
4、作品管理
5、作品採集

後台:/admin/index.asp
帳號:admin 密碼:admin
廣告後台地址:ge/index.asp
帳號:admin 密碼:admin

閱讀全文

與asp源碼會員消費系統相關的資料

熱點內容
數控銑床編程簡單數字 瀏覽:786
編程電纜如何重啟 瀏覽:121
myqq命令行發消息 瀏覽:365
日產逍客怎麼使用app升窗 瀏覽:503
安卓系統怎麼快速刪除微信內容 瀏覽:653
csharppython 瀏覽:409
程序員脖子按摩儀 瀏覽:562
小米桌面文件夾亂碼怎麼回事 瀏覽:858
點歌台app怎麼連接 瀏覽:318
大學電腦編程學什麼好 瀏覽:348
上哪裡取消應用加密 瀏覽:172
電氣控制與可編程式控制制器pdf 瀏覽:87
cad圖紙不能跨文件夾粘貼 瀏覽:256
學生雲伺服器主機 瀏覽:889
單片機狀態周期 瀏覽:622
lua中的android 瀏覽:443
加密貴還是植發貴 瀏覽:664
陽光壓縮機繼電器 瀏覽:971
修改阿里雲伺服器密碼 瀏覽:817
lk4102加密晶元 瀏覽:588