网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码) 第9页
<%
set rs=server.createobject("adodb.recordset")
if request("action")="change" then
sql="select top 1 * from admin"
rs.open sql,conn,3,3
rs("admin_name")=request("admin_name") '修改用户名
rs("admin_pass")=request("admin_pass") '修改用户密码
rs.update
rs.close
response.write "您的更改已成功"
elseif request("action")="change2" then '判断是否接收到表单值
sql="select top 1 * from admin"
rs.open sql,conn,3,3
rs("mingcheng")=request("mingcheng")
rs.update
rs.close
response.write "您的更改已成功"
else
sql="select top 1 * from admin" '显示第一条记录
rs.open sql,conn,3,3
%>
.........
<% end if%>
更改初始信息页面的运行结果如图15所示。
图15 更改初始信息页面运行结果
6.4.3 ．查看服务器信息管理模块设计
查看服务器信息管理模块可以查看不同服务的相关信息，如服务器的IP地址、显示站点路径、服务器的CPU数量等。查看服务器信息管理页面的设计效果如图16所示。
图16 查看服务器信息管理页面设计效果
查看服务器信息管理模块所涉及到的程序代码如下：
<td width="30%" valign=middle> 显示客户发出的所有HTTP标题 </td>
<td width="70%"><%=request.ServerVariables("All_Http")%></td>
</tr>
<tr>
<td width="30%" valign=top> 检取ISAPIDLL的metabase路径 </td>
<td width="70%"><%=request.ServerVariables("APPL_MD_PATH")%></td>
</tr>
<tr>
<td width="30%" valign=top> 显示站点物理路径 </td>
<td width="70%"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr>
<td width="30%" valign=top> 路径信息 </td>
<td width="70%"><%=request.ServerVariables("PATH_INFO")%></td>
</tr>
<tr>
<td width="30%" valign=top> 显示请求机器IP地址 </td>
<td width="70%"><%=request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td width="30%" valign=top> 服务器IP地址 </td>
<td width="70%"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td width="30%" valign=top> 显示执行SCRIPT的虚拟路径 </td>
<td width="70%"><%=request.ServerVariables("SCRIPT_NAME")%></td>
</tr>
<tr>
<td width="30%" valign=top> 返回服务器的主机名，DNS别名，或IP地址 </td>
<td width="70%"><%=request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td width="30%" valign=top> 返回服务器处理请求的端口 </td>
<td width="70%"><%=request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr>
<td width="30%" valign=top> 协议的名称和版本 </td>
<td width="70%"><%=request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr>
<td width="30%" valign=top> 服务器的名称和版本 </td>
<td width="70%"><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td width="30%" valign=top> 服务器操作系统 </td>
<td width="70%"><%=Request.ServerVariables("OS")%></td>
</tr>
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>