📄 collecting_cregion.asp
字号:
<!--#include file="../../inc/conn.asp"-->
<!-- #include file="collecting_function.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>采集地区转换--雷风影视系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/css_body.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.4275" name=GENERATOR>
</HEAD>
<BODY>
<DIV class=bodytitle>
<DIV class=bodytitleleft></DIV>
<DIV class=bodytitletxt>采集地区转换</DIV>
<DIV class=bodytitletxt2><a href="?action=add">添加采集地区转换</a></DIV>
</DIV>
<%
call login_check()
Select Case Trim(Request.QueryString("action"))
case "add"
call add()
case "sadd"
call sadd()
call addlog("采集地区转换添加成功")
call showerr("采集地区转换添加成功","collecting_cregion.asp")
case "sedit"
call sedit()
call addlog("采集地区转换修改成功")
call showerr("采集地区转换修改成功","collecting_cregion.asp")
case "del"
call del()
call addlog("采集地区转换删除成功")
call showerr("采集地区转换删除成功","collecting_cregion.asp")
case else
call main()
end select
sub sadd()
conn.execute("INSERT INTO "&web_dbtop&"cregion (regionname,regionid) VALUES ('"&Trim(Request.Form("regionname"))&"',"&Trim(Request.Form("regionid"))&") ")
end sub
sub sedit()
conn.execute("UPDATE "&web_dbtop&"cregion SET regionname='"&Trim(Request.Form("regionname"))&"',regionid="&Trim(Request.Form("regionid"))&" WHERE id="&Trim(Request.QueryString("id")))
end sub
sub del()
conn.execute "delete from "&web_dbtop&"cregion where ID="&Trim(Request.QueryString("id"))
end sub
sub main()
Set rs = server.CreateObject("Adodb.RecordSet")
sql="Select * from "&web_dbtop&"cregion Order by id desc"
rs.open sql,Conn,1,1%>
<TABLE width="96%" border=0 align=center cellpadding="5" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<TBODY>
<TR bgColor=#f5fafe>
<TD width="5%" align="center" >ID</TD>
<TD align="center">采集地区</TD>
<TD align="center">对应地区</TD>
<TD width="15%" align="center">操作</TD>
</TR>
<%do while not rs.eof%>
<TR bgcolor="#FFFFFF">
<form action="?action=sedit&id=<%=rs("id")%>" method="post" name="form<%=Rs("id")%>">
<TD align="center"><%=rs("id")%></TD>
<TD align="center"><input type="text" name="regionname" value="<%=Rs("regionname")%>" size="40"/></TD>
<TD align="center"><%call showselect("region","regionname","regionid","请选择地区",rs("regionid"))%></TD>
<TD align="center"><a href="javascript:form<%=Rs("id")%>.submit();">修改</a> | <A href="?action=del&id=<%=rs("id")%>">删除</a></TD>
</form>
</TR>
<%rs.movenext
loop%>
</TBODY>
</TABLE>
<%rs.close:set rs = nothing
end sub
sub add()%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<form action="?action=sadd" method="post" onSubmit="return Validator.Validate(this,3)">
<TBODY>
<TR>
<TD vAlign=center width="20%" bgColor=#f5fafe>采集地区：</TD>
<TD bgColor=#ffffff><INPUT id=regionname size=50 name=regionname dataType="Require" msg="请填写地区名称"></TD>
</TR>
<TR>
<TD bgColor=#f5fafe>对应地区：</TD>
<TD bgColor=#ffffff><%call showselect("region","regionname","regionid","请选择地区","")%></TD>
</TR>
<TR align="center" bgcolor="#f8fbfb">
<TD colspan="2"><INPUT class=inputbut type=submit value=添加 name=Submit>
</TD>
</TR>
</TBODY>
</form>
</TABLE>
<script language="javascript" src="../inc/js.js"></script>
<%end sub
call connclose()%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -