?? skillsave.asp
字號:
<!--#include file="../conndb.asp"-->
<!--#include file="isUser.asp"-->
<html>
<head>
<title>保存技能信息</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
changechr = Replace(changechr,"'","‘")
End Function
Set rs = Server.CreateObject("ADODB.RECORDSET")
'判斷是否存在此用戶名技能信息
sql="Select * from Skill Where UserName='" &bb&"'"
rs.Open sql,Conn,1,3
If rs.EOF Then
rs.Close
'在數據庫表Skill中插入新記錄
sql="Select * from Skill"
rs.Open sql,Conn,1,3
rs.AddNew
rs("UserName")= Session("user_id")
rs("AppTitle") = Request("title")
rs("English") = Request("english")
rs("Computer") = Request("computer")
rs("Main") = changechr(Request("main"))
rs.Update
Else
'更改此技能信息
rs("AppTitle") = Request("title")
rs("English") = Request("english")
rs("Computer") = Request("computer")
rs("Main") = changechr(Request("main") )
rs.Update
End If
Response.Write "<h3>技能信息成功保存</h3>"
Set rs = Nothing
Response.Redirect "main.asp?flag=1"
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -