📄 adduser.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

💻 ASP

字号:

<% @language="vbscript" %> <% 
response.buffer=true
Response.Expires=0
%>
<!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
<%
username2=request("username2")
passwd2=request("passwd2")
if username2="" then 
	response.redirect "error.asp?id=012"
response.end
end if
if passwd2="" then 
	response.redirect "error.asp?id=013"
response.end
end if

if passwd2=username2 then
   response.redirect "error.asp?id=027"
response.end
end if

if len(username2)<2 then
response.redirect "error.asp?id=024"
response.end
end if

if len(username2)>=20 then
response.redirect "error.asp?id=023"
response.end
end if

if len(passwd2)>=10 then
response.redirect "error.asp?id=072"
response.end
end if

set rstmp=conn.execute("Select * from admin Where username='"&trim(request.form("username2"))&"'")
if not rstmp.eof then
	response.redirect "error.asp?id=030"
response.end
else
dim rs,tsql
dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from admin",conn,3,2
rst.addnew
rst("oskey")=request.form("select")
rst("Passwd")=Passwd2
rst("Username")=UserName2
rst.update
%>
<html>
<head>
<title>注册成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
<!--
body, table {font-size: 9pt; font-family: 宋体}
input {  font-size: 9pt; color: #000000; background-color: #f7f7f7; padding-top: 3px}
.c {  font-family: 宋体; font-size: 9pt; font-style: normal; line-height: 12pt; font-weight: normal; font-variant: normal; text-decoration: none}
--></style>
</head>

<body stylesrc="default.asp" background="images/bg.gif" bgcolor="#666666" text="#000000">
    
<table border=0 cellspacing=1 align="center" width="220" bordercolordark="#FFFFFF" height="208">
  <tr> 
  </tr>
</table>  
      
  </body>  
</html>  
<% 
rs.close 
set conn=nothing 
set rs=nothing 
end if
response.redirect "usermanage.asp"
response.end
 
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -