📄 admin_index_edit.asp

📁 完整的网址站
💻 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
  if session("flag")>1 then
  errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
  call diserror()
  response.end
  end if
if Request("shuju")="2" then
id=Request("id")
set rs=server.createobject("adodb.recordset")               
sql="select * from happywz_WEBURL where id="&id                  
rs.open sql,conn,1,1
if not rs.eof  then
sort=rs("sort")
web=rs("web")
url=rs("url")
mail=rs("lang")
content=rs("info")
end if
rs.close
set rs=nothing   
elseif Request("shuju")="1" then
id=Request("id")
set rs=server.createobject("adodb.recordset")               
sql="select * from happywz_WEB where wwwid="&id                  
rs.open sql,conn,1,1
if not rs.eof  then
sort=rs("wwwsort")
web=rs("wwwweb")
url=rs("wwwurl")
end if
rs.close
set rs=nothing                  
end if%> 
<script language=javascript>
function formCheck()
{

 
	if (document.form1.sort.value == "0")
	{
		alert("请选择分类!")
		document.form1.web.focus()
		return false
	}
	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
	}
	
	return true
}

</script>
<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 LEFTMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0"><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" > 
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22" COLSPAN="2" ALIGN="center"><B>站点信息修改</B></TD></TR> 
<TR BGCOLOR="#ffffff"> <TD  WIDTH="70" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航：</B></TD><TD  HEIGHT="30">☆<A HREF="Admin_Index.asp">返回用户网址列表</A>　　☆<A HREF="Admin_Html_Index.asp">返回网址库数据列表</A></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"> 
<%if Request("shuju")="1" then 
response.write"<B>修改网址库网址数据</B>"  
elseif Request("shuju")="2"  then 
response.write"<B>修改用户登陆网址数据</B>" 
end if%></TD></TR><FORM METHOD="POST" ACTION="admin_index_editsave.asp" 
NAME="form1" ONSUBMIT="return formCheck();"> <TR> <TD WIDTH="15%" ALIGN="right" CLASS="tdbg" HEIGHT="26" BGCOLOR=""#0099CF""><B>网站分类：</B></TD><TD WIDTH="85%" 
HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <SELECT CLASS="h_input" NAME="sort" SIZE="1"> 
<%
sql="select sortid,sort,sortstep from happywz_SORT order by bigid,sortid"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> <OPTION VALUE="<%=rs("sort")%>"<%if sort<>"" and sort=rs("sort") then%>selected<%end if%>><%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="26" CLASS="tdbg" BGCOLOR=""#0099CF""><B>网站名称：</B></TD><TD WIDTH="85%" 
HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <INPUT TYPE="text" NAME="web" SIZE="30" VALUE="<%=web%>" CLASS="h_input"> 
<FONT COLOR="#FF0000">**</FONT> 不要使用&lt; % # @ &amp;..等等特殊符号！</TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" HEIGHT="26" 
CLASS="tdbg" BGCOLOR=""#0099CF""><B>网站地址：</B></TD><TD 
WIDTH="85%" HEIGHT="30" CLASS="tdbg" BGCOLOR="#ffffff"> <INPUT TYPE="text" NAME="url" SIZE="30" 
VALUE="<%=url%>" CLASS="h_input"> <FONT COLOR="#FF0000">**</FONT> 必须以http://开头</TD></TR> 
<%if Request("shuju")=2 then%><TR> <TD ALIGN="right" BGCOLOR=""#0099CF"" HEIGHT="26" ><B>电子邮件：</B></TD><TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="mail" SIZE="30" VALUE="<%=mail%>" CLASS="h_input">** 
如：684662@happywz.com </TD></TR> <TR> <TD WIDTH="15%" ALIGN="right" VALIGN="top" 
CLASS="tdbg" BGCOLOR=""#0099CF"" HEIGHT="26"><B>网站简介：</B></TD><TD 
WIDTH="85%" CLASS="tdbg" BGCOLOR="#ffffff"> **不要超过３０个汉字<BR> <TEXTAREA ROWS="8" NAME="txtcontent" COLS="50" TYPE="text" 
CLASS="h_input"><%=content%></TEXTAREA> </TD></TR><%end if%> <TR BGCOLOR="#ffffff"> 
<TD COLSPAN="2" CLASS="tdbg" ALIGN="center"> <INPUT TYPE="submit" 
VALUE=" 提交您的站点 " NAME="cmdok" > &nbsp; <INPUT TYPE="reset" VALUE=" 重置表单 " NAME="cmdcancel"><FONT COLOR="#FF0000"><INPUT TYPE="hidden" NAME="shuju" VALUE="<%=Request("shuju")%>"> 
<INPUT TYPE="hidden" NAME="id" VALUE="<%=Request("id")%>"></FONT> </TD></TR> </FORM></TABLE><P>&nbsp;</P><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" > 
<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>为必须填写项目</TD></TR> </TABLE>
</body>
</html>
💿 文件大小 895 K
👤 上传用户 car_bike2000000
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网址
⌨️ 快捷键说明

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