登录转入.txt

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· 文本 代码 · 共 12 行

<% sName = Request("username")
sWord = Request("userpassword")
'此处应有用户名、密码输入正确性的判断，再读取数据库的学号、姓名的程序段
d = FormatDateTime(DateAdd("d", 365, Date))
Response.Cookies("jxyd_user_nstu") = "06040102"
Response.Cookies("jxyd_user_nstu").expires = d
Response.Cookies("jxyd_user_xmin") = "纪学生"
Response.Cookies("jxyd_user_xmin").expires = d
'此处应有根据学生学号确定作业号A和教师目录号zhe的程序段
Response.Redirect("ch8-jxHomeWork1.asp?work=A&ml=zhe")
%>