📄 addwz.asp

📁 功能说明： 1
💻 ASP
字号:
<!--#include file="adyou.asp"-->
<!--#include file=error.asp-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("super")<>"super" then
 response.Write("<script>alert('您没权限访问本页');window.location.href='de.asp'</script>")
 response.End()
end if
%>
<script id=clientEventHandlersJS language=javascript>
<!--
function CheckForm()
{
if (document.form.title.value==""){
alert("网站标题不能为空！");
document.form.title.focus();
return false;
}
if (document.form.leibie.value=="0"){
alert("请选择网站类别！");
document.form.leibie.focus();
return false;
}
if (document.form.url.value==""){
alert("网站地址不能为空！");
document.form.url.focus();
return false;
}
/*if (document.form.memo.value==""){
alert("网站介绍不能为空！");
document.form.message.focus();
return false;
}*/
if (document.form.memo.value.length>=200){
alert("网站介绍请控制在100个字符以内！");
document.form.memo.focus();
return false;
}
/*if (document.form.Email.value==""){
alert("Email不能为空！");
document.form.Email.focus();
return false;
}*/
Email=form.Email.value
if (Email!=null) {
if (Email.charAt(0)=="@") {
alert("请填入有效的Email地址!")
return false
}
var j=0,k=0
for (i=0;i<Email.length;i++) {
var oneChar=Email.charAt(i)
if (oneChar=="@") j=i
if (oneChar==".") k=i
}
if (k<j || k==0 || j==0 || k==j+1) {
alert("请填入有效的Email地址!")
return false;
}
}
}
-->
</script>
<%
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
	if title="" or url="" or leibie="0" then
errmsg="表单填写不完整！"
call diserror()
	Response.End
	end if
	if Session("lastaddedwz")<>title then
		set rss=server.createobject("adodb.recordset")
		rss.open "select * from XS20_WEB",adyou,1,3
		rss.addnew
		rss("title")=title
		rss("url")=url
		rss("classid")=leibie
		rss("email")=email
		rss("memo")=memo
		rss("verity")=1
		rss("time")=now()
		rss.update
		rss.close
		set rss=nothing
		Session("lastaddedwz")=title
		errmsg="网站信息已经成功提交！"
call disok()
		Response.End
	end if
end if
%>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<LINK href="../images/yxwancss.css" type=text/css rel=StyleSheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<br>
<form name="form" method="post" action="" onSubmit="return CheckForm()">
  <table width="500" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse">
    <tr bgcolor="#E8E8E8">
      <td height="30" colspan="2">
        <div align="center">增加网址</div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="125" align="center">网站名称:</td>
      <td width="407">
        <input size="40" name="title" type="text" class="TDBorder">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="125">
        <div align="center">网站分类:</div></td>
      <td width="407">
        <select name="leibie">
          <option selected value='0'>请选择网站分类</option>
          <%
dim rs(5)
function listunder(i)
	set rs(i)=server.createobject("adodb.recordset")
	rs(i).open "select classid,classname,verity from XS20_CLASS where topclass="&rs(i-1)("classid"),adyou,1,3
	while not rs(i).eof
		dim topclassname
		topclassname=""
		for x=1 to i
			topclassname=topclassname&rs(x-1)("classname")&"＞"
		next
		fujia=""
		if rs(i)("verity")<>1 then fujia="(未审核)"
		response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf
		if i<Ubound(rs) then
			call listunder(i+1)
		end if
		rs(i).movenext
	wend
end function
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname,verity from XS20_CLASS where topclass=0",adyou,1,3
while not rs(0).eof
	fujia=""
	if rs(0)("verity")<>1 then fujia="(未审核)"
	response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf
	call listunder(1)
	rs(0).movenext
wend
%>
        </select>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="125">
        <div align="center">E-mail:</div></td>
      <td width="407">
        <input
      size="40" name="Email" type="text" class="TDBorder">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="125">
        <div align="center">网站地址:</div></td>
      <td width="407">
        <input           
      size="40" name="url" type="text" value="http://" class="TDBorder">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="125">
        <div align="center">网站简介:</div></td>
      <td width="407">
        <textarea name="memo" cols="50" rows="5" id="MsgForm" ></textarea>
        <br>
      介绍在100个汉字以内 </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td align="center" colspan=2>
        <input type="hidden" name="action" value="add_wz">
        <input name="submit" type="submit" style="FONT-SIZE: 9pt" value="添加新网址">
      </td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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