chklogin.asp
来自「实现一定上传功能」· ASP 代码 · 共 19 行
ASP
19 行
<!--#include file=articleconn.asp-->
<%
dim rs
UserName1=request.form("UserName")
PassWd1=request.form("PassWd")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where UserName='" & UserName1 & "'",conn,1
if passwd1<>rs("passwd") then
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body bgcolor='#ffffef'>"
response.write "Sorry,请输入正确的管理员名字和密码"
else
session("UserName")=RS("Username")
session("KEY")=rs("OSKEY")
response.redirect "mymanage.asp"
end if
rs.close
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?