📄 systemparameteroption.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统

💻 ASP

字号:

<%response.expires=0%>
<!--#include file="../public/Public.asp"-->
<!--#include file="../public/CheckUserAbate.asp"-->
<!--#include file="../public/Popedom.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="no-cache">
<link rel="stylesheet" href="../css/css.css">
<title>单位信息设置</title>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<br><br>
<center><b><font size="+1">系统设置---单位信息设置</font></b></center>
<%
dim inivalue,err1,err2,IniPath
if request.form("submit")=" 提 交 " then
	UnitName=request.form("UnitName")
	UnitWord=request.form("UnitWord")
	IniPath=Server.Mappath("./")&"\Electron_Doc\Public\system.ini"
	set iniobject=server.createobject("ReadIni.IniDll")
	err1=IniObject.WriteIniFile("System", "UnitName", UnitName, IniPath)
	err2=IniObject.WriteIniFile("System","UnitWord",UnitWord,IniPath)
	If err1<>1 Or err2<>1 Then
		call disperrorinfo("建立系统INI文件出错，请手工建立！")
	End If
	set iniobject=nothing
end if
inivalue=GetIniFileValue()
if inivalue(1)<>"" then
	call DispErrorInfo1(inivalue(1))
else
	application("UnitName")=UnitName
	application("UnitWord")=UnitWord
	response.cookies("UnitName")=UnitName
%>
<div align="center">
<br><br>
<form method="POST" action="SystemParameterOption.asp">
  <div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="300">
      <tr>
        <td width="91" height="40" align="center" valign="bottom">单 位 名 称 ：</td>
      <td width="205" height="40" valign="bottom" align="center">
        <p align="left"><input type="text" name="UnitName" size="20" class="doc_txt" style="width: 180; height: 22" value="<%=server.htmlencode(inivalue(2))%>"></td>
    </tr>
    <tr>
      <td width="91" height="40" align="center" valign="bottom">发文机关代字：</td>
    <td width="205" height="40" valign="bottom" align="center">
      <p align="left"><input type="text" name="UnitWord" size="20" class="doc_txt" style="width: 180; height: 22" value="<%=server.htmlencode(inivalue(3))%>"></td>
    </tr>
    </table>
  </div>
  <p align="center"><br>
  <input type="submit" value=" 提 交 " name="Submit">&nbsp;&nbsp;&nbsp;  
  <input type="reset" value=" 重 填 " name="Reset"></p>
</form>
<br><br>
</div>
<%
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -