📄 modify1.asp
字号:
<%Option Explicit%>
<%session("txtId")%>
<!--#include file="ConnM.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">
<title>2008分类信息发布系统</title>
</head>
<body topmargin="0" bgcolor="#FFFFFF">
<!--#include file="top.htm"-->
<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>
<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 width="108">地区：</td>
<td>
<select name="infoqy" id="infoqy" >
<option value="张店区" <%if objRS("infoqy") = "张店区" then Response.Write("selected")%>>张店区</option>
<option value="淄川区" <%if objRS("infoqy") = "淄川区" then Response.Write("selected")%>>淄川区</option>
<option value="博山区" <%if objRS("infoqy") = "博山区" then Response.Write("selected")%>>博山区</option>
<option value="临淄区" <%if objRS("infoqy") = "临淄区" then Response.Write("selected")%>>临淄区</option>
<option value="周村区" <%if objRS("infoqy") = "周村区" then Response.Write("selected")%>>周村区</option>
<option value="桓台县" <%if objRS("infoqy") = "桓台县" then Response.Write("selected")%>>桓台县</option>
<option value="高青县" <%if objRS("infoqy") = "高青县" then Response.Write("selected")%>>高青县</option>
<option value="沂源县" <%if objRS("infoqy") = "沂源县" then Response.Write("selected")%>>沂源县</option>
<option value="高新区" <%if objRS("infoqy") = "高新区" then Response.Write("selected")%>>高新区</option>
<option value="其它地区" <%if objRS("infoqy") = "其它地区" then Response.Write("selected")%>>其它地区</option>
</select>
</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>
<tr>
<td><b>相关图片：</b></td>
<td><input name="logo" type="text" id="logo" value="<%=objRS("logo")%>" size="30">
会员可以自己上传图片，大小不超过<strong><font color="#FF0000">50K</font></strong><br>
<font color="#666666">*也可以是网上的图片例如：<font color="#993333">http://www.gzci.com/2008images/logo.gif</font></font></td>
</tr>
<tr>
<td> </td>
<td><iframe name="ad" frameborder=0 width=100% height=40 scrolling=no src="picture.asp"></iframe></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>
<!--#include file="copyright.htm"-->
</body>
</html>
<%
objConn.Close()
Set objRS = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -