📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>『驴友俱乐部』</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></head>
<%if request("exit")="ok" then
session("user")=""
session("id")=""
response.Redirect("login.asp")
end if%>
<%
dim G_useradmin1
dim G_userpass1,G_userpass2
dim G_webname,G_weburl1
dim G_webinfo,G_photoshop,G_webclass
dim G_userqq
dim rs,sql
if Request.QueryString("mod")="yes" then
G_userpass1=Request("G_userpass1")
G_userpass2=Request("G_userpass2")
G_webname=Request("G_webname")
G_weburl1=Request("G_weburl1")
G_webinfo=Request("G_webinfo")
G_photoshop=Request("G_photoshop")
G_webclass=Request("G_webclass")
G_userqq=Request("G_userqq")
If G_webname="" or G_weburl1="" or G_webinfo="" or G_userpass1="" or G_userqq="" Then
response.write"<SCRIPT language=JavaScript>alert('请按照规定修改您的信息！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
If G_webclass="0" Then
response.write"<SCRIPT language=JavaScript>alert('请选择网站分类！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
If G_userpass1<>G_userpass2 Then
response.write"<SCRIPT language=JavaScript>alert('两次输入密码不能一致！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from G_user where G_userid="&session("id")
rs.open sql,conn,1,3
rs("G_userpass")=md5(G_userpass1)
rs("G_webname")=G_webname
rs("G_weburl")=G_weburl1
rs("G_webinfo")=G_webinfo
rs("G_photoshop")=G_photoshop
rs("G_webclass")=G_webclass
rs("G_userqq")=G_userqq
rs.update
rs.close
response.redirect "login.asp"
end if%>
<body>
<div align="center">
<!--#include file="top.asp"-->
<!--头部代码结束-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#887872"></td>
</tr>
</table>
<!--顶线注册2000家可以删除-->
<table width="1000" border="0" cellspacing="0" cellpadding="0" background="images/grid1.gif">
<tr>
<td height="400" align="center" valign="top">
<!--管理开始-->
<%if session("user")="" then%>
<table width="600" border="0" cellspacing="0" bgcolor="#F5F5F5" cellpadding="0">
<tr>
<td><form name="form2" method="post" action="user_pass.asp">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center"> </td>
<td height="28"><FONT
color=#0033ff>1、请任意选择下面一段广告代码放置在您的网站首页，当有3人通过您的网站上发布的BannerBox的广告点入BannerBox（3个点击贡献），您的BannerBox广告格子将被激活，如果我们在审核时在首页上没有找到代码，审核将不予以通过！</FONT><FONT
color=#ff0000><A href="help.asp" target=_blank><FONT color=#ff0000>详细说明 >></FONT></A></FONT><FONT
color=#0033ff><BR>
<BR>
注意：请不要改动代码或只加图片及连接，那样我们无法检测LOGO的显示情况！ <BR>
我们会在每天8:00,14:00,17:30,23:00审核您的网站。 <BR>
<BR>
2、每当有人通过您发布的广告点击广告进入本站，您的广告将会显示在第一位，当再有其它网站的广告被点击进入本站，您的广告格子将后移一位。</FONT><FONT
color=#ff0000><A href="help.asp" target=_blank><FONT color=#ff0000>详细说明 >></FONT></A></FONT></td>
</tr>
<tr>
<td width="120" height="28" align="center">用户名称：</td>
<td height="28"><input name="G_useradmin1" type="text" id="G_useradmin1" size="40"></td>
</tr>
<tr>
<td width="120" height="28" align="center">用户密码：</td>
<td height="28"><input name="G_userpass1" type="password" id="G_userpass1" size="40"></td>
</tr>
<tr>
<td width="120" height="28" align="center"> </td>
<td height="28"><table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left"><input type="submit" name="Submit" value="登陆管理"></td>
<td align="right"><input type="reset" name="Submit2" value="重新填写"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="120" height="28" align="center"> </td>
<td height="28"> </td>
</tr>
</table>
</form></td>
</tr>
</table>
<!--以上是未登陆代码-->
<%else%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center"><%
dim rss
set rss=server.createobject("adodb.recordset")
sql="select * from G_user where G_userid="&session("id")
rss.open sql,conn,,1,1%></td>
</tr>
<tr>
<td align="center"> <table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" bgcolor="#FF9900">【资料修改】</td>
<td align="center" bgcolor="#FF9900"><a href="login.asp?exit=ok">【退出管理】</a></td>
</tr>
<tr>
<td colspan="2" align="center"><form name="form1" method="post" action="login.asp?mod=yes">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" height="28" align="left">用户名称：</td>
<td height="28"><font color="#FF0000"><%=rss("G_useradmin")%></font></td>
</tr>
<tr>
<td width="120" height="28" align="left">管理密码：</td>
<td height="28"><input name="G_userpass1" type="password" id="G_userpass1" size="40"><font color="#FF0000">*</font>修改资料同时也修改密码</td>
</tr>
<tr>
<td width="120" height="28" align="left">密码验证：</td>
<td height="28"><input name="G_userpass2" type="password" id="G_userpass2" size="40"><font color="#FF0000">*</font>请验证本次输入的密码</td>
</tr>
<tr>
<td width="120" height="28" align="left">网站名称：</td>
<td height="28"><input name="G_webname" type="text" id="G_webname" value="<%=rss("G_webname")%>" size="40">
<font color="#FF0000">*</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -