mod.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 23 行

<!--#include file="passinc.asp" -->
<!-- #include file="OpenDB.inc" -->
 <%
dim i
dim id
pnum=Request.Form("deletetopic").count
Set rs = Server.CreateObject("ADODB.Recordset")
if pnum>0 then
for i=1 to pnum
id=Request.Form("deletetopic")(i)
sql="update webmail set domain='"&request("domain")&"',tel='"&request("tel")&"',fax='"&request("fax")&"',add='"&request("add")&"',post='"&request("post")&"',com='"&request("com")&"' Where ID="&id
rs.open sql,conn
next
%>
 <script language=javascript>
alert("有<%=pnum%>条记录被修改！")
history.go(-1)
</script>
<%conn.close%>
<%else%>
      <p align="center">您没有选中修改条目，请<a href="index.asp"><font color="#FF0000">返回</font></a>再选！</p>

<%end if%>