shopa_addgeneral.asp

本软件可以实现的功能如下： 用户管理

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%ShopCheckAdmin

dim rstemp 
dim which
dim idfield
dim dbtable
sAction=Request.form("Action")
sError=""
GetInputValues
OpenDb conn,database
If sAction = "" Then
     AdminPageHeader
     GenerateForm
     AdminPageTrailer
     conn.close
     set conn=nothing
Else
     AddRecord
     conn.close
     set conn=nothing
     response.redirect "shopa_editrecord.asp?database=" & database & "&table=" & dbtable & "&idfield=" & idfield &  "&which=" & which
end if
'*************************
Sub GetInputValues
dbtable = request.querystring("table")
database=request.querystring("database")
if dbtable="products" then
     response.redirect "shopa_addproduct.asp?table=products&database=" & database 
end if
if dbtable="subcategories" then
     response.redirect "shopa_addsubcategory.asp?table=subcategories&database=" & database 
end if
End Sub
'***********************
Sub GenerateForm
sqltemp="select * from " & dbtable
set rstemp=conn.execute(sqltemp)
idfield=rstemp(0).name
DisplayForm
rstemp.close
set rstemp=nothing
end Sub
'****************************
Sub DisplayForm()
if Serror<>"" then
   Response.write sError & "<br>"
end if
howmanyfields=rstemp.fields.count -1
%>
<form name="addform" action="shopa_addgeneral.asp?database=<%=database%>&table=<%=dbtable%>&idfield=<%=idfield%>" method="POST">
</font>
  <table border="1" cellspacing="0" width="80%" bordercolordark="#FFFFFF" bordercolorlight="#000000" cellpadding="0" align="center">
    <%
      for i=1 to howmanyfields
             fieldname = rstemp(i).name
            'fieldvalue = rstemp(i).value
             fieldvalue=""
%> 
    <tr><td width="23%">
        <div align="center">
        <% =fieldname %></div></td>
     <td width="77%"><input type="TEXT" size=50 name=<%=fieldname%> value="<%=fieldvalue%>"></td></tr>
     <%next%>   
</table>
  <p align="center">
    <input type="submit" value="增加" name="Action">
    <br>
</form>
<%
end sub
'************
' 
Sub AddRecord
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open dbtable, conn, adOpenKeyset, adLockOptimistic
rstemp.AddNew
Dim rso
Dim sqlo
dim fieldname
dim fieldvalue
dim fieldtype
howmanyfields=rstemp.fields.count -1
idfield=rstemp(0).name
for i=1 to howmanyfields
       fieldname = rstemp(i).name
       fieldtype=rstemp(i).type
       fieldvalue = request.form(fieldname)
       Updatefield fieldname,fieldvalue
next
rstemp.update
rstemp.close
sqlo = "SELECT max(" & idfield & ") FROM " & dbtable
'debugwrite sqlo
Set rso = conn.Execute(sqlo)	
which=rso(0)
rso.Close
set rso=nothing
end sub

Sub UpdateRecord
sqltemp="select * from " & dbtable
sqltemp= sqltemp & " where  " & idfield & "=" & which
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.open sqltemp, conn, 1, 3
'rstemp.open sqltemp, conn, adOpenKeyset, adLockOptimistic
GenerateUpdateSQL
rstemp.close
sError= sError & "<br><b>Record Updated</b>" 
end sub
' ******** general Sql
Sub GenerateUpdateSQL()
Dim howmanyfields
dim i
howmanyfields=rstemp.fields.count -1 
rstemp.update
for i=1 to howmanyfields
       fieldname = rstemp(i).name
       fieldtype=rstemp(i).type
       fieldvalue = request.form(fieldname)
       Updatefield fieldname,fieldvalue
next
rstemp.update
end sub
Sub UpdateField (fieldname, fieldvalue)
if fieldvalue="" then
    exit sub
end if
'Debugwrite fieldname & "value=" & fieldvalue
if ucase(fieldvalue)="NULL" then
   rstemp(Fieldname)=NULL
else
'  debugwrite fieldname & "=" & fieldvalue
  rstemp(Fieldname)=fieldvalue
end if
end sub
%>