📄 updatefeedback.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
id=trim(request.QueryString("idd"))
'NewsID=trim(request.QueryString("NewsID"))
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * From Feedback where id="&id
rs.open sql,conn,1,3
title=rs("title")
comtont=rs("comtont")
address=rs("address")
linkman=rs("linkman")
tel=rs("tel")
mobiletel=rs("mobiletel")
fax=rs("fax")
email=rs("email")
code=rs("code")
addtime=rs("addtime")
idd=rs("id")
Re=rs("Re")
rs.close
set rs=nothing
%>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
end function
'============================
Addyes=trim(request.QueryString("myation"))
if Addyes="addok" then
idd=trim(request.QueryString("idd"))
title=trim(request.Form("title"))
comtont=trim(request.Form("comtont"))
comtont=trim(changechr(comtont))
address=trim(request.Form("address"))
linkman=trim(request.Form("linkman"))
tel=trim(request.Form("tel"))
mobiletel=trim(request.Form("mobiletel"))
fax=trim(request.Form("fax"))
email=trim(request.Form("email"))
code=trim(request.Form("code"))
putyes=trim(request.Form("outpub"))
Re=trim(request.Form("Re"))
RE=trim(changechr(RE))
Retime=date()
addtime=date()
'===============================
set rsw=Server.CreateObject("Adodb.Recordset")
sql="select * from Feedback where id="&idd
rsw.open sql,conn,1,3
'rsw.addnew
rsw("title")=title
rsw("comtont")=comtont
rsw("address")=address
rsw("linkman")=linkman
rsw("tel")=tel
rsw("mobiletel")=mobiletel
rsw("fax")=fax
rsw("email")=email
rsw("code")=code
rsw("outpub")=putyes
rsw("retime")=retime
rsw("re")=re
rsw.update
rsw.close
set rsw=nothing
response.Redirect"FeedbackAll.asp"
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop05.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="updateFeedback.asp?myation=addok&idd=<%=idd%>">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><hr size="1" color="#999999"></td>
</tr>
<tr>
<td width="23%" align="right"> 内容主题：</td>
<td>
<input name="title" type="text" class="myput" id="title" value="<%=title%>" size="40">
</td>
</tr>
<tr>
<td align="right"> 建议或意见： </td>
<td><textarea name="comtont" cols="80" rows="8" wrap="VIRTUAL" class="myput" id="comtont"><%
if comtont<>"" then
comtont=replace(comtont,"<br>",chr(13))
comtont=replace(comtont," "," ")
response.write comtont
else
response.write "请写上信息内容,不可以为空"
end if %></textarea></td>
</tr>
<tr>
<td align="right"> 通迅地址： </td>
<td><input name="address" type="text" class="myput" id="address" value="<%=address%>" size="40"></td>
</tr>
<tr>
<td align="right"> 联系人： </td>
<td><input name="linkman" type="text" class="myput" id="linkman" value="<%=linkman%>"></td>
</tr>
<tr>
<td align="right"> 电话： </td>
<td><input name="tel" type="text" class="myput" id="tel" value="<%=tel%>"></td>
</tr>
<tr>
<td align="right"> 手机： </td>
<td><input name="mobiletel" type="text" class="myput" id="mobiletel" value="<%=mobiletel%>"></td>
</tr>
<tr>
<td align="right"> 传真： </td>
<td><input name="fax" type="text" class="myput" id="fax" value="<%=fax%>"></td>
</tr>
<tr>
<td align="right"> 邮编： </td>
<td><input name="code" type="text" class="myput" id="code" value="<%=code%>"></td>
</tr>
<tr>
<td align="right"> E-mail： </td>
<td><input name="email" type="text" class="myput" id="email" value="<%=email%>"></td>
</tr>
<tr>
<td align="right">是否对外公布此信息：</td>
<td><input name="outpub" type="radio" value="1" checked>
是
<input name="outpub" type="radio" value="0">
否</td>
</tr>
<tr>
<td align="right">管理员回复：</td>
<td><textarea name="Re" cols="80" rows="8" wrap="VIRTUAL" class="myput" id="Re"><%
if re<>"" then
re=replace(re,"<br>",chr(13))
re=replace(re," "," ")
response.write re
else
response.write "NoRe"
end if %>
</textarea></td>
</tr>
<tr>
<td align="right"> </td>
<td><br> <input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -