📄 add_grade.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<style type="text/css">
<!--
body {
font-size: 12px;
}
-->
</style>
</head>
<body>
<div align="center">
<p>
<%
set gconn=server.CreateObject ("adodb.connection")
gconn.Open "Driver={Microsoft Access Driver (*.mdb)};password=8888;dbq=" & server.MapPath ("guest/db/guestbook.mdb")
set myrs=server.CreateObject ("adodb.recordset")
grade=request("radiobutton")
if len(grade)<>0 then
add_grade()
end if
delid=request("delid")
if len(delid)<>0 then
delete_ty()
end if
function delete_ty
sq="delete * from tuya where id="&delid
myrs.open sq,gconn,1,3
gconn.close()
'response.Write sq
end function
function add_grade
id=request("tuya_id")
if len(id)=0 then
response.End ()
else
sq="update tuya set grade=grade+"&grade&" where id="&id
end if
myrs.Open sq,gconn,1,3
'myrs.Close()
gconn.Close()
end function
%>
操作成功，谢谢！</p>
<p><a href="javascript:guanbi()">关闭</a> </p>
</div>
</body>
<script language="JavaScript">
function guanbi(){
window.close()
}
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -