📄 modify10.asp
字号:
<%Option Explicit%>
<!--#include file="adoconn.asp"-->
<%
dim objRS,sql
dim staid
dim thispath,referer
staid = Request.QueryString("staid")
thispath = Request.QueryString("p")
referer = Request.ServerVariables("HTTP_REFERER")
sql = "select * from stationinfo where id = " & staid
Set objRS = objConn.Execute(sql)
if objRS.EOF then
objConn.Close
Set objRS = nothing
Set objConn = nothing
Response.Write("<font color=red>参数错误</font>")
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>黄金联盟搜索系统</title>
<style>
<!--
td { font-size: 10.5pt }
-->
</style>
</head>
<body topmargin="0" bgcolor="#FFFFFF">
<table border="1" width="70%" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF" align="center">
<form action="modify2.asp" method="post" name=form1>
<input type="hidden" name="sortid" value="<%=objRS("parentid")%>">
<input type="hidden" name="staid" value="<%=staid%>">
<input type="hidden" name="referer" value="<%=referer%>">
<tr>
<td width="100%" height="30">
<p align="center"><b>编辑站点</b>
</td>
</tr>
<tr>
<td width="100%" height="68"> <br>
<center><b><%=thispath%></b></center>
<blockquote style="margin-left: 70">
网站名称：<br>
<dd><input maxLength="60" name="title" size="30" value="<%=objRS("stationname")%>"><br>
网站地址(URL):<br>
<dd><input name="url" size="30" value="<%=objRS("stationurl")%>"><br>
网站语言:<br>
<dd><select name="lang" size="1">
<option value="GB" <%if objRS("stationlang") = "GB" then Response.Write("selected")%>>简体中文</option>
<option value="BIG5" <%if objRS("stationlang") = "BIG5" then Response.Write("selected")%>>繁体中文</option>
<option value="ENGLISH" <%if objRS("stationlang") = "ENGLISH" then Response.Write("selected")%>>英文站点</option>
<option value="OTHER" <%if objRS("stationlang") = "OTHER" then Response.Write("selected")%>>其它语言</option>
</select><br>
网站内容描述：<br>
<dd>
<input name="comments" size="30" maxLength="100" value="<%=objRS("description")%>">
<br>
<font size="2">您的姓名(可填昵称或工作室名)</font><br>
<dd><input type="text" name="name" maxLength="10" value="<%=objRS("whopost")%>"><br>
Email:<input name="email" value="<%=objRS("email")%>"><br>
<center><input name=".submit" type="submit" value=" 送 出 ">
<input name=".reset" type="reset" value=" 重 填 "> <input name=".goback" type="reset" value=" 返 回 " onclick="history.go(-1)"></center></p>
</blockquote>
</td>
</tr>
</table>
<center><!--#include file="copyright.asp"-->
</form>
</body>
</html>
<%
objConn.Close()
Set objRS = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -