?? updatetodb.asp
字號:
<!--#include file="connect.asp"-->
<%
on error resume next
dim StrGetFormName,StrGetFormvalue,StrsqlInsert,InsertTable,RedirectUrl,StrInsertName,StrInsertValue,StrInsert
InsertTable=Request.QueryString("InsertTable") '要修改的表名
RedirectUrl=Request.QueryString("RedirectUrl") '要返回到的頁面路徑
ModifyID=Request.QueryString("ModifyID") '要修改的記錄的ID值
ModifyIDName=Request.QueryString("ModifyIDName")'要修改的記錄的ID名稱
if ModifyID<>"" and ModifyIDName<>"" then
if InsertTable<>"" then
if CheckIt<>"" then
strsqlcheck="select * from "&InsertTable&" where "&CheckIt&"='"&request(CheckIt)&"'"
Set objRscheck = Server.CreateObject("adodb.recordset")
objRscheck.Open strsqlcheck,objConn,1,1
'response.write strsqlcheck
'response.end
if not objRscheck.eof then
if objRscheck.fields(ModifyIDName)<>ModifyID then
response.write "<script language='javascript'>alert('此項目已經存在!');</script>"
response.write "<p align='center'>請<a href='javascript:history.back();'>返回</a></p>"
response.end
end if
end if
objRscheck.close
set objRscheck=nothing
end if
StrsqlInsert="update "&InsertTable&" set "
for i=1 to Request.Form.Count
StrGetFormName=Request.Form.Key(i)
StrGetFormvalue=Request.Form(i)
StrInsert=StrInsert&StrGetFormName&"='"&StrGetFormvalue&"',"
next
StrInsert=left(StrInsert,len(StrInsert)-1)
StrsqlInsert=StrsqlInsert&StrInsert&" where "&ModifyIDName&"="&ModifyID
'response.write StrsqlInsert
'response.end
objConn.execute StrsqlInsert
if RedirectUrl<>"" and RedirectUrl<>"close" then
Response.Redirect RedirectUrl
elseif RedirectUrl="close" then
response.write "<script language='javascript'>window.opener.location.reload();window.close();</script>"
'Response.Write "<p align=center>數據插入成功,請<a href='#' onclick='window.opener.location.reload();window.close()'>返回</a></p>"
response.end
else
Response.Write "<p align=center>數據插入成功,請<a href='#' onclick='history.go(-1)'>返回</a></p>"
Response.End
end if
else
Response.Write "<p align=center>請傳入數據庫名稱!方式:QueryString</p>"
Response.End
end if
else
Response.Write "<p align=center>請傳入要修改記錄的參數!方式:QueryString</p>"
Response.End
end if
if err then
Response.Write "<p align=center>數據修改失敗,請重試或者檢查你的submit按鈕的名稱是否為空!</p>"
Response.End
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -