📄 main.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
Myself=Request.ServerVariables("PATH_INFO")
If request("Request_Method")="POST" Then
Session.TimeOut = 180
cname=Request("cname")
pwd=Request("pwd")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from members where cname='"&cname&"' and pwd='"&pwd&"'"
rs.open sqlstr,conn,3,2
If rs.recordcount=0 Then
session("message")="对不起，您的帐号或密码输入错误"
response.redirect "main.asp"
End If
Session("members")=cname
Session("message")="您已登录会员资料，购物将以九折计算，结帐时也可不必再输入资料．．"
rs.close
conn.close
End If
%>
<HTML>
<HEAD>
<TITLE>线上售货网管理模组</TITLE>
<link REL="stylesheet" HREF="style.css" TYPE="text/css">
</HEAD>
<body bgcolor=ffffff marginheight=0 marginwidth=0 leftmargin=0 topmargin=0>
<center>
<a href=../index.asp><img src=img/chome.jpg width=298 height=88 border=0></a><br><br>
<table border=0 width=90% bgcolor=cccccc>
<tr><td bgcolor=006600><font size=3 color=ffff00>程式简介：</font></td></tr>
<tr><td><div class=text1>线上售物，一般都 依商品特性，先作商品分类；并依分类建立所有的商品简介；然後决定会员的资格与交易的模式（如邮局代收），商品的特性无疑的是线上售物程式设计考量的重点，因为这涉及资料库表单与栏位的设计，至於程式的撰写则应该相当容易才对！这个ASP包括了线上的管理模组（新增、修改、删除目录、商品、会员、及订购处理等）。</div></td></tr></table>
<%If session("message")<>"" Then %>
<br><table border=0 width=90% bgcolor=cccccc><tr><td><font color=red><%=session("message")%></font></td></tr></table>
<% Else %>
<FORM METHOD=POST ACTION=<%=Myself%>>
<table border=0 width=42%>
<tr><td colspan=2 bgcolor=006600><font color=ffff00>会员请先登入资料，可享九折优待，<br>
凡购物满3000元即自动登录为会员。</font></td></tr>
<tr><td bgcolor=cfe3f2 width=37%>会员帐号：</td><td><INPUT TYPE="text" NAME="cname" size="20"></td></tr>
<tr><td bgcolor=cfe3f2>会员密码：</td><td><INPUT TYPE="PASSWORD" NAME="pwd" size="8"> <INPUT TYPE="submit" Value="会员登入"></td></tr>
</table>
</FORM>
为测试方便，建议<a href=reg_member.asp target=_blank>按这里登录</a>，方能测出结果！（注：Mail不要填错就好）<br><br>
<% End If %>
<hr width=90%>
<font size=2><em>系统时间：<%=Now%></em> 程式设计 : <a href=http://chome.rich2000.com.tw>Chome</a></font> <a href=mailto:chinimin@ms6.hinet.net>站长信箱</a><br>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -