⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setparameter.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
	dim connq
	dim rsq
	set connq=server.CreateObject("adodb.connection")
	set rsq=server.CreateObject("adodb.recordset")
	connq.Open connstring
	rsq.Open "select * from parameter where id="&request("id"),connq,2,3,1
	if rsq.EOF then
		Response.Write "找不到记录"
		Response.End 
	end if
	
if request("prefix")<>"" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
	rs.Open "select * from parameter where id="&request("id"),conn,2,3,1
	
	rs("prefix")=request("prefix")
	rs("len")=request("len")
	rs("linenum")=request("linenum")
	rs("step")=request("step")
	rs("maxlinenum")=request("maxlinenum")
	
	rs.Update 
	rs.Close 
	set rs=nothing
	conn.Close 
	set conn=nothing
%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
end if
%>

<HTML><HEAD><TITLE>参数设置</TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
 <form name=form1  method="post"  id=form1>
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
   <tr> 
    <td height="25"><strong><font size="2" class=title><b>参数设置</b></font></strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr > 
      <td height="16" colspan="2" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
	<tr><td>
	<div align="center" style="cursor:hand"><a onclick="form1.submit();"><img src="../images/button_save.gif"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a onclick="window.close();"><img src="../images/button_cancel.gif"></a> 
    </div></td>
    </tr>
 </table>
  <table width="100%" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">名称</div></td>
      <td width="60%" bgcolor="EFEFEF"><font color="#FF0000"><%=rsq("name")%></font></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">编号前缀</div></td>
      <td width="60%" bgcolor="EFEFEF"> <input type=text name=prefix value="<%=rsq("prefix")%>"></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">编号长度</div></td>
      <td width="60%" bgcolor="EFEFEF"> <input type=text name=len value="<%=rsq("len")%>"></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">默认细目行数</div></td>
      <td width="60%" bgcolor="EFEFEF"> <input type=text name=linenum value="<%=rsq("linenum")%>"></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">细目步进</div></td>
      <td width="60%" bgcolor="EFEFEF"> <input type=text name=step value="<%=rsq("step")%>"></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="DEDFDE" ><div align="center">最大细目行数</div></td>
      <td width="60%" bgcolor="EFEFEF"> <input type=text name=maxlinenum value="<%=rsq("maxlinenum")%>"></td>
    </tr>
  </table>

<%
	rsq.Close
	set rsq=nothing
	connq.Close
	set connq=nothing

%>
</form>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -