📄 editlink.asp
字号:
<%@ LANGUAGE = VBScript%>
<%
id=1
%>
<!-- #include file=../database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
function CheckPassword()
sql="select * from ourusers where Ltrim(Rtrim(username))='supervisor'"
rs.open sql,conn,1,1
if not rs.eof then
if trim(rs("pass"))<>session("pass") then
response.write "<br>错误的密码!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
rs.close
end if
else
response.write "错误:用户不存在!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
end function
checkPassword()
id=request("editid")
if isNumeric(id)=0 or id="" then
response.write "操作失败!"
conn.close
set conn=nothing
response.end
end if
if id<0 then
response.write "操作失败!!"
conn.close
set conn=nothing
response.end
end if
sql = "select * from linking where id="&id
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "找不到记录!也许此记录已经删除."
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
%>
<!-- Design and Edit By QianFengyun 2000-5-20 -->
<!-- #include file=../change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0041)http://www.china114net.com 中国114网 -->
<html>
<head>
<title><%=titlename%></title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="../html/style.css">
</head>
<body onload="JavaScript:form1.username.focus();" bgcolor=ccbbaa>
<FORM action=editlink2.asp?id=<%=id%> method=post name=form1
onsubmit="return ValidationPassed">
<P align=center>修改待处理网站</P><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=320>
<TBODY>
<TR>
<TD>注意:网站分类是一个数字,要查"字典"的,否则不要动!</TD></TR></TBODY></TABLE><BR><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=font
style="MARGIN-TOP: -20px; POSITION: relative" width=320>
<TBODY>
<TR align=middle>
<TD colSpan=2>
<TABLE border=0 cellPadding=0 cellSpacing=0 class=font width="100%">
<TBODY>
<TR>
<TD bgColor=#ececff height=2><IMG height=1
src="../blank.gif" width=1></TD>
<TD bgColor=#ececff height=2><IMG height=1
src="../blank.gif" width=1></TD>
</TR>
<TR>
<TD colSpan=2>1.*用 户 名:
<INPUT class=input maxLength=10
name=username size=28 value="<%=server.htmlencode(trim(rs("username")))%>">
</TD>
</TR>
<TR>
<TD colSpan=2>3.*网站名称:
<INPUT class=input maxLength=40 name=sitename
size=28 value="<%=server.htmlencode(trim(rs("sitename")))%>">
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD colSpan=2>4.*网站地址:
<INPUT class=input maxLength=100 name=url size=28
value="<%=server.htmlencode(trim(rs("url")))%>">
</TD>
</TR>
<TR>
<TD colSpan=2>5.*网站简介:
<INPUT class=input maxLength=200 name=jiji size=28 value="<%=server.htmlencode(trim(rs("jiji")))%>">
</TD>
</TR>
<TR>
<TD colSpan=2>6.*网站分类:
<input class=input maxlength=200 name=fenleiid size=28 value="<%=server.htmlencode(trim(rs("fenleiid")))%>">
</TD>
</TR>
<TR>
<TD colSpan=2> </TD>
</TR>
<TR>
<TD width="5%"> </TD>
<TD align=middle height=30 width="95%">
<INPUT class=p9 name=submit onclick=form_onsubmit(this.form) style="BACKGROUND-COLOR: rgb(145,148,195); COLOR: rgb(255,255,255)" type=submit value=" 添 加 ">
<INPUT class=p9 name=b1 style="BACKGROUND-COLOR: rgb(145,148,195); COLOR: rgb(255,255,255)" type=reset value=" 重 写 ">
</TD>
</TR>
<TR>
<TD bgColor=#ececff colSpan=2 height=2><IMG height=1
src="../blank.gif" width=1></TD>
</TR>
</TBODY>
</TABLE>
</FORM>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -