📄 apply.asp
字号:
<!--#include file="conn.asp"-->
<%
'=========================================================
' 随然日记本（多用户版） Version:3.0
' Date: 2004-11-15
' Script Written by 随然(dampure)
' 随然日记本演示地址：http://www.suiran.cn
'=========================================================
' Copyright (C) 2003,2004 真露无香. All rights reserved.
' Web: www.yongzi.com
' Diary:http://www.suiran.cn
'=========================================================
set rstmp=server.createobject("adodb.recordset")
set rstmp=conn.execute("Select * from admin Where user='"&Replace(LCase(trim(request.form("username"))),"'","")&"' or nickname='"&Replace(trim(request.form("nickname")),"'","")&"'")
if not rstmp.eof then%>
<script language=vbscript>
MsgBox "不好意思，该用户名或者昵称已被使用，请用其他用户名或昵称吧！"
location.href = "javascript:history.back()"
</script>
<%
response.end
else
username=trim(request("username"))
passwd=trim(request("passwd"))
nickname=trim(request("nickname"))
readpwd=trim(request("readpwd"))
diary_name=trim(request("diary_name"))
content=trim(request("content"))
pic=request("type")
suiji=request("suiji")
question=request("question")
answer=request("answer")
address=request("address")
leibie=request("leibie")
pinglunlock=request("pinglunlock")
if username="" or passwd="" or nickname="" or readpwd="" or diary_name="" or content="" or pic="" or suiji="" or question="" or answer="" then
%>
<script language=vbscript>
MsgBox "非法提交，请从正规页面注册！"
location.href = "javascript:history.back()"
</script>
<%
response.end
end if
set rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * FROM admin where userid is null",conn,1,3
rs.addnew
rs("title")=diary_name
rs("infor")=content
rs("user")=username
rs("picshow")=suiji
rs("readpwd")=readpwd
rs("pwd")=passwd
rs("nickname")=nickname
rs("pic")=pic
rs("question")=question
rs("answer")=answer
rs("leibie")=leibie
rs("address")=address
rs("say")=pinglunlock
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("Select * from admin Where user='"&request.form("username")&"'")
session("username")=trim(request.form("username"))
session("userid")=rs("userid")'获取两个session，方便以后页面
conn.close
end if
%>
<HTML>
<head>
<title>:::::真露无香——随然日记本:::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="日记本，网络日记本，真露无香">
<meta name="description" content="随然日记本">
<style type="text/css">
<!--
body,td{font-family:宋体;font-size: 10pt;}
textarea,input{font-family:宋体;font-size: 9pt; BORDER: #666666 1px dashed;}
.submit{font-family:宋体;font-size: 9pt;BORDER: #666666 1px solid; background-color:#FFCAD3}
a:hover { font-family:宋体;text-decoration:underline; color:#e6ece0;}
a { font-family:宋体;text-decoration:none; color:#8fb967;}
body{overflow:scroll;overflow-x:hidden}
.popper{position : absolute;visibility : hidden;}
.table { BORDER: #666666 1px dashed; word-break:break-all}
//-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="images/bg.gif">
<table width="350" class=table cellpadding="5" cellspacing="1" align="center" background="image/bg62.gif">
<tr>
<td width="400" height="25" align="center" background="images/tb_bg.gif" bgcolor="ffffff">真露无香—随然日记本—申请成功！</td>
</tr>
<tr>
<td height="30" background="image/bg62.gif" bgcolor="ffffff" style="line-height:150%">欢迎使用随然为你提供的网络日记本。<br>
</td>
</tr>
<tr>
<td height="30" background="image/bg62.gif" bgcolor="ffffff"><u>以下是你的注册信息：</U>
<br>
<div height=30 align=center>用户名：<font color=red><%=request.form("username")%></font></div>
<div height=30 align=center>昵 称：<font color=red><%=request.form("nickname")%></font></div><br>
<div height=30 align=center>你的日记本地址为：<br><font color=red>http://yongzi.com/freediary/login.asp?user=<%=request.form("username")%></font></div><br>
<br>
<br>
<div height=30 align=center><a href="login.asp?user=<%=session("username")%>">☆点这里登录☆</a></font>
</div>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -