setup_exe.asp

来自「=== ==ASP销售管理系统」· ASP 代码 · 共 26 行

<!--#include file="inc/check_login.asp"-->
<%
'起始页
StartPage = request("StartPage")
response.Cookies("StartPage") = StartPage
response.Cookies("StartPage").Expires = now() + 365

'每页显示记录条数
PageSize = request("PageSize")
response.Cookies("PageSize") = PageSize
response.Cookies("PageSize").Expires = now() + 365

'起始展开工作目录
StartMenu = request("StartMenu")
response.Cookies("StartMenu") = StartMenu
response.Cookies("StartMenu").Expires = now() + 365

'字符集
CharSet = request("CharSet")
response.Cookies("CharSet") = CharSet
response.Cookies("CharSet").Expires = now() + 365

response.write "<font color=#FF0000>新设置已经生效</font>"
server.transfer "setup.asp"
%>