📄 modify1.asp
字号:
<%Option Explicit%>
<!--#include file="adoconn.asp"-->
<%
dim objRS,sql
dim staid
dim thispath,referer,siteabout,sitearea,sitename,infotime,infoname
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>2008分类信息发布系统</title>
<style>
<!--
td { font-size: 10.5pt }
-->
</style>
</head>
<body topmargin="0" bgcolor="#FFFFFF">
<table border="1" width="750" 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">
<table width="680" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="98">信息标题：</td>
<td width="526"><input maxLength="60" name="title" size="30" value="<%=objRS("stationname")%>"></td>
</tr>
<tr>
<td>信息内容：</td>
<td><textarea name="comments" cols="60" rows="5"><%=objRS("description")%></textarea></td>
</tr>
<tr>
<td>有效期：</td>
<td><select name="infotime" size="1">
<option value="7" <%if objRS("infotime") = "7" then Response.Write("selected")%>>一星期</option>
<option value="30" <%if objRS("infotime") = "30" then Response.Write("selected")%>>一个月</option>
<option value="90" <%if objRS("infotime") = "90" then Response.Write("selected")%>>三个月</option>
<option value="365" <%if objRS("infotime") = "365" then Response.Write("selected")%>>一年</option>
</select>
信息类型:
<select name="lang" size="1">
<option value="供应信息" <%if objRS("stationlang") = "供应信息" then Response.Write("selected")%>>供应信息</option>
<option value="求购信息" <%if objRS("stationlang") = "求购信息" then Response.Write("selected")%>>求购信息</option>
<option value="代理合作" <%if objRS("stationlang") = "代理合作" then Response.Write("selected")%>>代理合作</option>
<option value="其它信息" <%if objRS("stationlang") = "其它信息" then Response.Write("selected")%>>其它信息</option>
</select> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>公司名称:</td>
<td><input name="aboutname" size="30" value="<%=objRS("sitename")%>"></td>
</tr>
<tr>
<td>公司简介:</td>
<td><textarea name="aboutserver" cols="60" rows="5"><%=objRS("siteabout")%></textarea></td>
</tr>
</table>
<p> </p>
<p><br>
<font size="2"><strong>联系方式：</strong></font></p>
<table width="680" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="108">网站地址(URL):</td>
<td width="552"><input name="url" size="30" value="<%=objRS("stationurl")%>"></td>
</tr>
<tr>
<td>联系地址：</td>
<td><input type="text" name="name" maxlength="10" value="<%=objRS("whopost")%>"></td>
</tr>
<tr>
<td>联系人:</td>
<td><input name="infoname" value="<%=objRS("infoname")%>"></td>
</tr>
<tr>
<td>Email:</td>
<td><input name="email" value="<%=objRS("email")%>"></td>
</tr>
<tr>
<td>联系电话:</td>
<td><input name="aboutarea" size="30" value="<%=objRS("sitearea")%>"></td>
</tr>
</table>
<p> </p>
<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></form>
</body>
</html>
<%
objConn.Close()
Set objRS = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -