?? new_info_edit3.asp
字號:
<!-- #include file="head.asp" -->
<!-- #include file="session.asp" -->
<TABLE width=760 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF" class=bk>
<TBODY>
<TR>
<TD colspan="2" align=middle vAlign=top>
<!-- #include file="diao2.asp" --><br>
</TD>
</TR>
<TR>
<TD colspan="2" align=middle vAlign=top>
<!-- #include file="lwconn.asp" -->
<%if request.querystring("save")="true" then
old1=request.querystring("old1")
old2=request.querystring("old2")
table=old1&old2
set rs2=server.createobject("adodb.recordset")
sql ="select * from "&table&" where id= "&trim(request.querystring("id"))
rs2.open sql,conn,1,3
if rs2.eof or rs2.bof then
response.Write("<br><div align=center>數據庫 無該記錄!</div>")
else
if rs2("userid")<>request.Cookies("user_name") then
%>
<script language=javascript>
history.back()
alert("你無權修改該記錄!")
</script>
<%
Response.End
end if
'begin
rs2("date1")= trim(request.form("date1"))
rs2("date2")=trim(request.form("date2"))
if request("old1") ="snew_" then
rs2("price")=trim(request.form("price"))
else
end if
rs2("s_address")=trim(request.form("s_address"))
rs2("tel") =trim(request.form("tel"))
content=request.Form("content")
'***********Process the content of news :begin******************
content=replace(content," "," ")
content=replace(Content,chr(13)&chr(10),"<BR>")
rs2("content")=content
rs2.update
'end
end if
response.write "<center><h3>信息修改成功</h3></center>"
%>
<%else%>
<% old1=request("old1")
old2=request("old2")
%>
<% table=old1&old2
set rs=server.createobject("adodb.recordset")
sql ="select * from "&table&" where id= "&trim(request.querystring("id"))
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.Write("<br><div align=center>數據庫中暫無任何記錄!</div>")
else
if rs("userid")<>request.Cookies("user_name") then
%>
<script language=javascript>
history.back()
alert("你無權修改該記錄!")
</script>
<%
Response.End
end if
%>
<form action="?save=true&id=<%=request.querystring("id")%>&old1=<%=old1%>&old2=<%=old2%>"" method="post">
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#dedede cellSpacing=0 cellPadding=4
width="540" align=center border=1 bgColor=white>
<TR vAlign=bottom bgColor=#99ccff>
<TD colspan=2 align=center> 信息修改 </TD>
</TR>
<TABLE width="540" height="53" border="1" align="center" cellpadding="4" cellspacing="1" bordercolor="#111111" bordercolorlight="#E0E0C2" bordercolordark="#E0E0C2" style="border-collapse: collapse">
<%if request.QueryString("old1") ="snew_" then %>
<tr>
<td>開盤日期:</td>
<td width="32%"><input type="text" name="date1" value="<%=rs("date1")%>"> <br>
</td>
<td width="17%">交房日期: </td>
<td width="33%"><input type="text" name="date2" value="<%=rs("date2")%>"> <br>
</td>
</tr>
<%else%>
<tr>
<td>預計開盤價:</td>
<td width="32%"><input type="text" name="date1" value="<%=rs("date1")%>"> <br>
</td>
<td width="17%">預計開盤時間: </td>
<td width="33%"><input type="text" name="date2" value="<%=rs("date2")%>"> <br>
</td>
</tr>
<%end if%>
<%if request.QueryString("old1") ="snew_" then %>
<tr>
<td>售價: </td>
<td colspan="3"><input type="text" name="price" value="<%=rs("price")%>"> 元/平方米 </td>
</tr>
<% end if%>
<tr>
<td>售樓地址: </td>
<td> <input type="text" name="s_address" value="<%=rs("s_address")%>"></td>
<td> 售樓電話: </td>
<td> <input type="text" name="tel" value="<%=rs("tel")%>"></td>
</tr>
<tr>
<td> 備 注 </td>
<td colspan=3> <%content=rs("content")
content=replace(content," "," ")
content=replace(Content,"<BR>",chr(13)&chr(10))
%><textarea name="content" cols="55" rows="16" wrap="VIRTUAL" id="content"><%=content%></textarea> </td>
</tr>
<TR valign="top" ><TD width=100 bgColor=white><div align="center" > </div></TD><TD colspan=2>
<div align="center">
<input type="submit" name="Submit" value="保存修改">
<input type="reset" name="Submit2" value="復 位">
</div>
</TD></TR>
</table></form>
<%
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing %>
<p><br></p> </TD>
</TR>
</TBODY>
</TABLE>
<!-- #include file="footer.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -