输入密码才能访问网页

ASP新手入门
dim pwd,cpwd,act,sname
set rsx=conn.execute("select pwd,sortnamech from YunXin_NewsSort where id="&SortId)
pwd=rsx(0)
sname=rsx(1)

cpwd=Trim(Request.Form("pwd"))

IF Trim(Request.QueryString("act"))="very" then

if pwd<>cpwd then
response.Write "<script language=javascript>alert('请输入正确密码!');history.go(-1);</script>" 
response.End() 
else
Response.Cookies("xuan"&SortId)="ok"
Response.Cookies("xuan"&SortId).Expires=Date+30
end if 

END IF

'调用新闻信息所属分类
'set rs2 = conn.execute("select ID,SortName"&Language&" From YunXin_ProductSort where ID="&SortID)
'ProductSortName = rs2("SortName"&Language)
'rs2.close
'set rs2 = nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><% =webtitle %></title>
<meta name="Keywords" content="<% =seokeywords %>" />
<meta name="Description" content="<% =seodescriptions %>" />
<script language="javascript" src="../Script/Html.js"></script>
<link href="Css/Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
 

 If Request.Cookies("xuan"&SortId)<>"ok"  Then %>
<form action="?act=very&id=<%=id%>" method="post" name="formx" id="formx" style="text-align:center;margin-top:200px">
请输入<%=sname%>密码:<input name="pwd" type="text" id="pwd">
<input type="submit" value="提交">
</form>
<%
RESponse.End()
   End If %>

相关内容推荐

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

返回
顶部