📄 dcedit.asp

📁 1.多种查询方式

💻 ASP

字号:

<%@ LANGUAGE="VBScript"%>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
 %>
<%const title="修改仓库编号"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0" onload="javascript:document.input1.txttitle.focus();">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<% 
'on error resume next
Showtitle(title)
hurry = split(session("username"),";")
UserCompanyid =  hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 3 then
	Response.End 
end if
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
curid = replace(curid,"'","")
bedit = false
founderr = false
if curaction = "edit" then
	bedit = true
end if
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid)  
end if

		
 %>

<table border='0' width=100% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td align=center><img src="../images/1.gif"></td>
</tr>

</table>

<%

call closedatabase
 %>
<!--#include file=../data/copyright.asp-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -