?? moveto.asp
字號:
<%
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs_back=server.createobject("adodb.recordset")
sql="select * from back where id like '" & id & "'"
rs_back.open sql,conn,3,2
set rs_friend=server.createobject("adodb.recordset")
rs_friend.open "friend",conn,3,2
rs_friend.addnew
rs_friend("for_id")=session("user_id")
rs_friend("user_id")=rs_back("user_id")
rs_friend("netname")=rs_back("netname")
rs_friend("sex")=rs_back("sex")
rs_friend("home")=rs_back("home")
rs_friend.update
set rs_back=server.createobject("adodb.recordset")
sql="delete * from back where id like '" & id & "'"
rs_back.open sql,conn,3,2
rs_friend.close
response.redirect "your.asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -