?? link_action.asp
字號:
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
</head>
<body>
<%
dim href,text
href=request.Form("href")
text=request.form("text")
edit=request.QueryString("edit")
if edit="true" then
set linkrs=server.CreateObject("adodb.recordset")
strsql="select * from link where id="&session("linkid")
linkrs.open strsql,db,1,2
'linkrs.addnew
linkrs("URL")=href
linkrs("text")=text
'linkrs("subdate")=now()
linkrs.update
response.redirect "add_link.asp"
else
if href<>"" and text<>"" then
dim linkrs,strsql
set linkrs=server.CreateObject("adodb.recordset")
strsql="select * from link"
linkrs.open strsql,db,0,2
linkrs.addnew
linkrs("URL")=href
linkrs("text")=text
linkrs("subdate")=now()
linkrs.update
response.redirect "add_link.asp"
else
response.Write "<script>alert('輸完哇！');history.back();</script>"
end if
end if
%>
<input type="submit" value="返回" onclick="javascript:history.back();" name="btn1">
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -