wnp_zd_subs_wb.asp

U盘身份识别软件

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

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

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

sub webdelOrder(tableName,fieldName,fieldId,recordId)'删除记录前调用
  websql = "select "&fieldName&" from "&tableName&" where "&fieldId&"="&recordId
  webrs.open websql,webconn,1,1
  if not webrs.eof then
  orderNumber = webrs(fieldName)
  end if
  webrs.close
  if orderNumber<>"" then
    websql = "update "&tableName&" set "&fieldName&" = "&fieldName&"-1 where "&fieldName&">"&orderNumber
    webconn.execute(websql)
  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
%>