📄 admin_index_addurl.asp
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if%><html>
<head>
<title>精彩网址 - 网址登陆</title>
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
<script language=javascript>
function formCheck()
{
if (document.form1.web.value == "")
{
alert("请填写站点名称!")
document.form1.web.focus()
return false
}
if (document.form1.url.value == "")
{
alert("请填写站点地址!")
document.form1.url.focus()
return false
}
if (document.form1.url.value == "http://")
{
alert("请填写正确的站点地址!")
document.form1.url.focus()
return false
}
}
</script>
</head>
<body topmargin="0" leftmargin="0" ><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="2" CELLSPACING="0" CLASS="HeaderTdStyle" >
<TR> <TD HEIGHT="26"
COLSPAN="2" ALIGN="center"><B>添加站点信息</B></TD></TR> <TR> <TD WIDTH="70" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航：</B></TD><TD
HEIGHT="30" BGCOLOR="#ffffff"> </TD></TR> </TABLE><BR><TABLE WIDTH="90%" BORDER="0" CELLSPACING="1"
CELLPADDING="2" ALIGN="CENTER" BGCOLOR="#0099CF"> <TR BGCOLOR="#0099CF"> <TD COLSPAN="2" HEIGHT="30"><B>添加站点信息</B></TD></TR><FORM METHOD="POST" ACTION="admin_index_addurlsave.asp"
NAME="form1" ONSUBMIT="return formCheck();"><TR> <TD WIDTH="15%" ALIGN="right" HEIGHT="30"
CLASS="tdbg" BGCOLOR=""#0099CF""><B>数据库选择：</B></TD><TD
WIDTH="85%" HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"><SELECT NAME="shuju" CLASS="h_input"><OPTION VALUE="1">网址库</OPTION><OPTION VALUE="2">用户网址</OPTION></SELECT><FONT COLOR="#FF0000">*</FONT>
</TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" CLASS="tdbg" HEIGHT="20" BGCOLOR=""#0099CF""><B>网站分类：</B></TD><TD WIDTH="85%"
HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <SELECT NAME="sort" CLASS="h_input">
<OPTION VALUE="0">选择分类</OPTION> <%
sort=Request("sort")
sql="select * from happywz_SORT order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> <OPTION VALUE="<%=rs("sort")%>"<%if rs("sort")=Request("sort") then response.write "selected"%>><%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%> -- <%next
end if%> <%=rs("sort")%></OPTION> <%
rs.movenext
wend
rs.Close()
set rs=nothing
%> </SELECT><FONT COLOR="#FF0000">*</FONT></TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" HEIGHT="30" CLASS="tdbg" BGCOLOR=""#0099CF""><B>网站名称：</B></TD><TD WIDTH="85%"
HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <INPUT TYPE="text" NAME="web" SIZE="30" VALUE="" CLASS="h_input">
<FONT COLOR="#FF0000">*</FONT> 不要使用< % # @ &..等等特殊符号！</TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" HEIGHT="30"
CLASS="tdbg" BGCOLOR=""#0099CF""><B>网站地址：</B></TD><TD
WIDTH="85%" HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <INPUT TYPE="text" NAME="url" SIZE="30" CLASS="h_input">
<FONT COLOR="#FF0000">*</FONT> 必须以http://开头</TD></TR> <TR> <TD ALIGN="right" BGCOLOR="#ffffff" ><B>电子邮件：</B></TD><TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="mail" SIZE="30" VALUE="" CLASS="h_input">
如：684662@qq.coom </TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" VALIGN="top"
CLASS="tdbg" BGCOLOR=""#0099CF""><B>网站简介：</B></TD><TD
WIDTH="85%" CLASS="tdbg" BGCOLOR="#ffffff"> [不要超过30个汉字]<BR> <TEXTAREA ROWS="8" NAME="txtcontent" COLS="50" TYPE="text"
CLASS="h_input"></TEXTAREA> </TD></TR> <TR BGCOLOR="#ffffff"> <TD COLSPAN="2" CLASS="tdbg" ALIGN="center">
<INPUT TYPE="submit"
VALUE=" 提交您的站点 " NAME="cmdok" > <INPUT TYPE="reset" VALUE=" 重置表单 " NAME="cmdcancel">
</TD></TR> </FORM></TABLE><BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" ALIGN="CENTER" >
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22"
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD></TR> <TR BGCOLOR="#ffffff"> <TD WIDTH="87" HEIGHT="30"><B>操作说明：</B></TD><TD
HEIGHT="30"><LI><FONT COLOR="#FF0000">*</FONT>为必须填写选项<BR><LI><B>数据库选择：</B>网址库，指用于生成前台HTML页面的网址数据；用户网址，指用户在前台登陆或推荐的网址数据。<LI>备用说明，暂无……</TD></TR>
</TABLE>
</body> </html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -