📄 savesort.asp
字号:
<!--#include file="check.asp" -->
<%
dim mud,sortid,sortname,sortmeno
mud=request.item("mud")
sortid=request.item("sortid")
sortname=request.item("sortname")
sortmeno=request.item("sortmeno")
if mud="add" then
call saveadd()
end if
if mud="savexiu" and sortid<>"" then
call saveup()
end if
%>
<%
function saveadd()
Set InsertCursor = Server.CreateObject("ADODB.RecordSet")
sql = "sort"
InsertCursor.Open sql, Conn, 3, 3
InsertCursor.addnew
InsertCursor("sortname")=sortname
InsertCursor("sortmeno")=sortmeno
InsertCursor("sortdate")=date()
InsertCursor.Update
InsertCursor.Close()
call succ()
end function
function saveup()
Set InsertCursor = Server.CreateObject("ADODB.RecordSet")
sql = "select * from sort where sortid="&sortid&""
InsertCursor.Open sql, Conn, 3, 3
if not InsertCursor.eof then
InsertCursor("sortname")=sortname
InsertCursor("sortmeno")=sortmeno
InsertCursor("sortdate")=date()
InsertCursor.Update
InsertCursor.Close()
call succ()
end if
Set InsertCursor = Server.CreateObject("ADODB.RecordSet")
sql = "update listvod set vodsort='"&sortname&"' where vodsortid="&sortid&""
InsertCursor.Open sql, Conn, 1, 3
end function
%>
<%function succ%>
<html>
<head>
<title>添加目录</title>
<LINK href="css/netoa.css" rel=STYLESHEET
type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="60%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td> </td>
</tr>
<tr bgcolor="#0099CC">
<td align=middle height=25 style="FONT-SIZE: 10pt"> <font color="#FFFFFF">
<%
if mud="add" then
response.write"添加"
else
response.write"修改"
end if
%>目录成功</font></td>
</tr>
</table>
<table width="60%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<hr>
</td>
</tr>
</table>
<table width="60%" border="1" cellspacing="4" cellpadding="0" align="center" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td width="30%" height="21">
<div align="center">类 目 名 称：</div>
</td>
<td width="70%" height="21">
<%=sortname%>
</td>
</tr>
<tr>
<td width="30%" height="23">
<div align="center">类 目 简 介：</div>
</td>
<td width="70%" height="23">
<%=sortmeno%>
</td>
</tr>
<tr>
<td width="30%" height="23">
<div align="center">建 类 时 间：</div>
</td>
<td width="70%" height="23">
<%=now()%>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"><%if mud="add" then
response.write"添加"
else
response.write"修改"
end if%>成功，请问需要继续吗？<br>
<br>
<a href="addsort.asp">是</a>
<a href="listsort.asp">否</a></div>
</td>
</tr>
</table>
</body>
</html>
<%end function%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -