wnp_zd_subs.asp

U盘身份识别软件

<%
if session("USERID")="" then
response.Redirect "WNP_LOGIN.ASP"
end if
%>
<%
'调用说明：
'tableName = 表名(字符串)
'fieldName = 序号字段名(字符串)
'orderNumber = 序号值(字符串)
'fieldId= Id字段名
'recordId= 记录Id值

sub modOrder(tableName,fieldName,orderNumber,fieldId,recordId)'修改记录前调用
  orderNumber=Cint(orderNumber)
  sql="select * from "&tableName&" where "&fieldName&"="&orderNumber&" and "&fieldId&"<>"&recordId
  rs.open sql,conn,1,1
  if not rs.eof then
    rs.close
	sql="select * from "&tableName&" where "&fieldId&"="&recordId
	rs.open sql,conn,1,1
	tempOrder=rs(fieldName)
	rs.close
	if tempOrder>orderNumber then
      sql="update "&tableName&" set "&fieldName&"="&fieldName&"+1 where ("&fieldName&">="&orderNumber&" and "&fieldName&" <"&tempOrder&")"
    else
      sql="update "&tableName&" set "&fieldName&"="&fieldName&"-1 where ("&fieldName&"<="&orderNumber&" and "&fieldName&" >"&tempOrder&")"
    end if
    conn.execute(sql)
	sql="update "&tableName&" set "&fieldName&"="&orderNumber&" where "&fieldId&"="&recordId
	conn.execute(sql)
  else
    rs.close
	sql="update "&tableName&" set "&fieldName&"="&orderNumber&" where "&fieldId&"="&recordId
	conn.execute(sql)
  end if
end sub

sub addOrder(tableName,fieldName,orderNumber)'添加记录前调用(增加了值为orderNumber的新记录)
  orderNumber=Cint(orderNumber)
  sql="select * from "&tableName&" where "&fieldName&"="&orderNumber
  rs.open sql,conn,1,1
  if not rs.eof then
    rs.close
    sql="update "&tableName&" set "&fieldName&"="&fieldName&"+1 where "&fieldName&">="&orderNumber
    conn.execute(sql)
	sql="insert into "&tableName&"("&fieldName&") values("&orderNumber&")"
	conn.execute(sql)
  else
    rs.close
	sql="insert into "&tableName&"("&fieldName&") values("&orderNumber&")"
	conn.execute(sql)
  end if
end sub

sub delOrder(tableName,fieldName,fieldId,recordId)'删除记录前调用
  sql = "select "&fieldName&" from "&tableName&" where "&fieldId&"="&recordId
  rs.open sql,conn,1,1
  if not rs.eof then
  orderNumber = rs(fieldName)
  end if
  rs.close
  if orderNumber<>"" then
    sql = "update "&tableName&" set "&fieldName&" = "&fieldName&"-1 where "&fieldName&">"&orderNumber
    conn.execute(sql)
  end if
end sub
%>
<!---------------分页设置---------------->
<%
Function setPerPage()
  sql="select * from WNT_PAGE where WND_PAGE_NAME='"&pagename&"'" '设置分页开始
  rssub.open sql,conn,1,1
  if not rssub.eof then
    setPerPage=rssub("WND_PAGE_NUMBER")
  else
    setPerPage=15
  end if '设置分页结束
  rssub.close
end Function
%>