📄 fa.asp

📁 物业管理和办公自动化系统

💻 ASP

字号:

<%@language="VBScript"%>
<%option explicit%>
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="f.inc" -->

<%
Dim formAction : formAction = GetParam("formAction")
Dim file_name, file_desp, item_id, item_desp
Dim sSQL, rs

dim cn : set cn = New CDBConnection
cn.Connect(dbLocal)


Select Case formAction
Case "insert"
	file_name = GetParam("file_name")
	file_desp = GetParam("file_desp")
	item_id   = GetParam("item_id")

	sSQL = "insert into T_WebFiles(file_name, file_desp, item_id)" & _
		" values(" & ToSQL(file_name, "Text") & _
		" , " & ToSQL(file_desp, "Text") & _
		" , " & ToSQL(item_id, "Text") & _
		")"		
'	response.write sSQL : response.end
	call ExecuteSQL(dbLocal, sSQL)
	cn.Disconnect()
	response.Redirect "fl.asp"
Case else
	' do nothing
End Select

%>

<html>
<head>
<style type="text/css">
<!-- @import url(../common/common.css); -->
</style>
</head>

<body>
<form method="post" name="fileAction">
<table align=center cellspacing=1 cellpadding=8 border=0 bgcolor=silver>
<tr height=30px bgcolor=white><td class=PageTitle align=center>新增页面文件</td></tr>
<tr bgcolor=white><td class=noborder>文件名称：<input type="text" name="file_name" value="" class=FlatCtrl size="34" maxlength="256"></td></tr>
<tr bgcolor=white><td class=noborder>文件描述：<input type="text" name="file_desp" value="" class=FlatCtrl size="34" maxlength="256"></td></tr>
<tr bgcolor=white><td class=noborder>所属项目：<select name="item_id">
									<%=mkSelectOptions("T_Item", "item_id", "item_desp", "has_child=0", 0)%>
								</select>
<tr height=40px bgcolor=white><td class=noborder align=center>
	<input type="submit" name="btnInsert" value=" 新 增 " class=FlatBtn>&nbsp;
	<input type="reset" name="btnReset" value=" 重 置 " class=FlatBtn>&nbsp;
	</td></tr>
</table>
<input type="hidden" name="formAction" value="insert">
</form>

<p align=center><a href="fl.asp"><img border=0 src="../images/list.gif">&nbsp;返回页面文件列表</a>

</body>
</html>

<%
cn.Disconnect()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -