📄 admin_url_add.asp

📁 sfsfds设定方式分上述事实是事实是事实是事实是事实上
💻 ASP
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
dim title,url,leibie,userid,topid,recommend,link,memo
if request("action")="add" then
if request("pw1")="" or request("pw2")="" or request("pw4")="" or request("pw5")="" or request("pw6")="" or request("pw7")="" then
	Call outcome("表单填写不完整")
	Response.End
end if
if request("pw3")=0 or request("pw3")="" then
	Call outcome("请选择分类")
	Response.End
end if
if strLength(request("pw8"))>100 then
	Call outcome("网站简介已经超过100字节")
	response.end
End If
title=ReplaceBadChar(Trim(request("pw1")))
url=Replace(Trim(request("pw2")),"'","")
leibie=ReplaceBadChar(Trim(request("pw3")))
userid=ReplaceBadChar(Trim(request("pw4")))
topid=ReplaceBadChar(Trim(request("pw5")))
recommend=ReplaceBadChar(Trim(request("pw6")))
link=ReplaceBadChar(Trim(request("pw7")))
memo=ReplaceBadChar(Trim(request("pw8")))
color=ReplaceBadChar(Trim(request("pw9")))
index=ReplaceBadChar(Trim(request("pw10")))
set r=server.createobject("adodb.recordset")
r.open "select * from O3888_website",conn,1,3
	r.addnew
	r("title")=title
	if not color="" then r("color")=color
	r("url")=url
	r("classid")=leibie
	r("userid")=userid
	r("topid")=topid
	if not memo="" then r("memo")=memo
	r("recommend")=recommend
	r("index")=index
	r("link")=link
	r("verity")=1
	r.update
	r.close
	set r=nothing
	Call outcome("新网站添加成功")
	Response.End
end if
%>
<HTML>
<HEAD>
<TITLE>网站添加管理</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr> 
<td align="center">网站添加管理</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<tr>
<form action="admin_url_add.asp" method="post" name="form1">
<td width="20%">网站标题：</td>
<td width="80%"><input name="pw1" class="c" size="40"> <select class="c" name='pw9' style="display:none">
<option value='' selected>默认颜色</option>
<option value='#000000' style='background-color:#000000'></option>
<option value='#FFFFFF' style='background-color:#FFFFFF'></option>
<option value='#008000' style='background-color:#008000'></option>
<option value='#800000' style='background-color:#800000'></option>
<option value='#808000' style='background-color:#808000'></option>
<option value='#000080' style='background-color:#000080'></option>
<option value='#800080' style='background-color:#800080'></option>
<option value='#808080' style='background-color:#808080'></option>
<option value='#FFFF00' style='background-color:#FFFF00'></option>
<option value='#00FF00' style='background-color:#00FF00'></option>
<option value='#00FFFF' style='background-color:#00FFFF'></option>
<option value='#FF00FF' style='background-color:#FF00FF'></option>
<option value='#FF0000' style='background-color:#FF0000'></option>
<option value='#0000FF' style='background-color:#0000FF'></option>
<option value='#008080' style='background-color:#008080'></option>
</select><font color=red>*</font></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input class="c" name="pw2" size="50" value="http://"> <font color=red>*</font></td>
</tr>
<tr>
<td>分类名称：</td>
<td>
<select class="c" name="pw3">
<option selected value='0'>请选择分类</option>
<%
set rssss(0)=server.createobject("adodb.recordset")  
rssss(0).open "select classid,classname from O3888_class where topclass=0",conn,1,3
while not rssss(0).eof  
	response.write "<option value='"&rssss(0)("classid")&"'>"&rssss(0)("classname")&"("&rssss(0)("classid")&")</option>"&vbCrLf  
	call listunder(1)
	rssss(0).movenext
wend
%>  
</select> <font color=red>*</font>
</td>
</tr>
<input style="display:none" name="pw4" value='0'><input style="display:none" name="pw5" value='0'><input style="display:none" type="radio" value='1' name="pw6"><input style="display:none" type="radio" name="pw6" value='0' checked><input style="display:none" type="radio" value='1' name="pw7"><input style="display:none" type="radio" name="pw7" value='0' checked>
<tr>
<td>实用酷站：</td>
<td><input class="c" type="radio" value='1' name="pw10">&nbsp;&nbsp;显示该站&nbsp;&nbsp;&nbsp;&nbsp;<input class="c" type="radio" name="pw10" value='0' checked>&nbsp;&nbsp;未显示该站 <font color=red>*</font></td>
</tr>
<textarea style="display:none" cols="60%" name="pw8" rows="5">无</textarea>
<tr>
<td>点击添加：</td>
<td>
<input type="hidden" name="action" value="add">
<input class="d" type="submit" value="添加新网站">
</td>
</form>
</tr>
<tr>
<td>说明</td>
<td>
1：带“<font color=red>*</font>”为必须填写的表单<br>2：友情连接，指对方网站是否做有本站的连接<br>
</td>
</tr>
<tr>
<td align="center" colspan="2">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td> 
</tr> 
</table>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -