?? add_line_sort.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_libs/my_request.asp"-->
<!--#include file="../my_libs/my_lib.asp"-->
<%
dim action,sql,rs,nums
action=my_request("action",0)
if action="save" then
call saveline()
else
end if
sql="select max(zm_flag) as maxflag from ssort_line"
set rs=conn.execute (sql)
if (rs.eof) then
nums=1
else
nums=rs("maxflag")+1
rs.close
set rs=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建網(wǎng)頁 1</title>
<link rel="stylesheet" type="text/css" href="style_admin.css" />
</head>
<body>
<table width="98%" id="table1">
<form action=add_line_sort.asp method=post>
<tr>
<td width="976" colspan="2" class="top_td" height="26">旅游線路類別添加</td>
</tr>
<tr>
<td width="321" align="right" class="left_td">線路類別名稱：</td>
<td width="649">
<input type="text" name="ssort_linesort" size="32" maxlength="100"></td>
</tr>
<tr>
<td width="321" align="right" class="left_td">排序：</td>
<td width="649">
<input type="text" name="ssort_flag" size="4" maxlength="4" value="<%=nums%>"><input type="hidden" name="action" value="save">(建議采用默認(rèn))</td>
</tr>
<tr>
<td width="321" align="right" class="left_td">備注說明：</td>
<td width="649"><textarea rows="6" name="ssort_content" cols="31"></textarea></td>
</tr>
<tr>
<td width="970" align="right" colspan="2" bgcolor="#6699FF" class="left_td">
<p align="center"><input type="submit" value="確定添加" name="submit"></td>
</tr></form>
</table>
</body>
</html>
<%
sub saveline()
dim arrline(2)
arrline(0)=my_request("ssort_linesort",0)
arrline(1)=my_request("ssort_flag",1)
arrline(2)=my_request("ssort_content",0)
if arrline(0)="" or arrline(1)="" or arrline(2)="" or (isNumeric(arrline(1))=false) then
call wnourl("參數(shù)錯誤")
else
arrline(1)=cint(arrline(1))
conn.execute ("insert into ssort_line (zm_linesort,zm_flag,zm_content,zm_addtime) values ('"&arrline(0)&"',"&arrline(1)&",'"&arrline(2)&"','"&now()&"')")
call wurl("添加成功","manage_line_sort.asp")
end if
end sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -