62,268
社区成员
发帖
与我相关
我的任务
分享
<?xml version="1.0" standalone="yes"?>
<configuration>
<appSettings>
<add key="website" value="宁波市流动人口围产保健系统" />
<add key="addr" value="浙江宁波北仑闽江路" />
<add key="url" value="http://localhost:8022/ldrk/" />
<add key="tel" value="0574-86784223" />
<add key="email" value="www@asjob.com" />
<add key="denglu_rizhi" value="1" />
<add key="limit" value="0" />
<add key="connstring" value="server=.;database=ldrk;uid=sa;pwd=;" />
<add key="dataname" value="blzzbOA" />
</appSettings>
</configuration>
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
If username.Text.Trim = "" Or password.Text.Trim = "" Or yanzhengma.Text.Trim = "" Then
Response.Write(remind("用户名不能为空!\n密码不能为空!\n验证码不能为空!", 0))
Exit Sub
ElseIf Session("VNum").ToString.Trim.ToLower <> yanzhengma.Text.Trim.ToLower Then
Response.Write(remind(Session("VNum") + "验证码错误" + yanzhengma.Text.Trim, 0))
Exit Sub
Else
Dim sqlconn As New SqlConnection
Try
Dim pwss As String = HashPasswordForStoringInConfigFile(password.Text, "MD5")
Dim strSQL As String = "select * from jianhui_sys_admin where jianhui_admin='" & toSQL(username.Text) & "'"
Dim mycomm As SqlCommand = New SqlCommand(strSQL, sqlconn)
Dim mydr As SqlDataReader
mycomm.Connection.Open()
mydr = mycomm.ExecuteReader()
If mydr.Read() Then
If mydr("jianhui_password") = pwss Then
If mydr("locks") = 1 Then
errors.Text = "该用户被锁定!"
Exit Sub
Else
Session("lt_names") = mydr("jianhui_admin")
Session("lt_ids") = mydr("jianhui_id")
Session("lt_pws") = mydr("jianhui_password")
Session("lt_dept") = mydr("dept")
Session("lt_zhiwei") = mydr("zhiwei")
sys_chuqing = mydr("chuqing").ToString.Trim
Session("lt_relname") = mydr("jianhui_name").ToString.Trim
If mydr("bir").ToString.Trim <> "" Then
Try
shengritixing = CType(mydr("bir").ToString.Trim, Date)
Catch ex As Exception
shengritixing = ""
End Try
End If
UpdataCreate("UPDATE [jianhui_sys_admin] SET [online]=1,[lastlogin]='" & Date.Now & "',[click]=[click]+1 where jianhui_id=" & mydr("jianhui_id"))
Dim ri As String = ConfigurationSettings.AppSettings("denglu_rizhi")
If ri = 1 Then
Dim ip As String = Page.Request.UserHostAddress
insertCreate("INSERT INTO [jianhui_sys_admin_log] ([log_username],[log_time],[log_ip]) VALUES ( '" & mydr("jianhui_admin") & "', '" & Date.Now & "', '" & ip & "' )")
End If
'Response.Redirect("zhuan.aspx")
If jiyi.Checked = True Then
Response.Cookies("username").Value = username.Text.Trim
Response.Cookies("password").Value = password.Text.Trim
Response.Cookies("username").Expires = DateTime.Now.AddYears(15) '设置cookies有效期
Response.Cookies("password").Expires = DateTime.Now.AddYears(15) '设置cookies有效期
End If
Response.Redirect("getsystem.aspx")
End If
Else
Response.Write(remind("密码错误!", 0))
End If
Else
Response.Write(remind("用户名不存在!", 0))
End If
mycomm.Connection.Close()
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
Session("VNum") = ""
End If
End Sub
Private Sub jiyichu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jiyichu.Click
Call jiyichula()
End Sub
Sub jiyichula()
Response.Cookies("username").Value = ""
Response.Cookies("password").Value = ""
Response.Cookies("username").Expires = DateTime.Now.AddSeconds(1)
Response.Cookies("password").Expires = DateTime.Now.AddSeconds(1)
username.Text = ""
password.Text = ""
jiyi.Visible = True
jiyichu.Visible = False
End Sub
End Class
<a href="###" onclick="javascript: document.form.reset()"> </a>
==============================================================
这是做什么的?<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="netoa.WebForm1"%>
<HTML>
<HEAD>
<title>
<%=ConfigurationSettings.appSettings("website")%>
</title>
<link rel="Bookmark" href="images/ico.ico">
<link rel="Shortcut Icon" href="images/ico.ico">
<LINK href="Styles.css" type="text/css" rel="stylesheet">
<meta http-equiv='refresh' content='600;URL=default.aspx'>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css"> BODY { BACKGROUND-COLOR: #006599 } </style>
</HEAD>
<body leftmargin="0" rightmargin="0" onbeforeunload="window.location.replace('')">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<TABLE WIDTH="1000" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
<form id="Form1" method="post" runat="server">
<TBODY>
<TR>
<TD ROWSPAN="2">
<IMG SRC="images/login_1.jpg" WIDTH="245" HEIGHT="349"></TD>
<TD ROWSPAN="2">
<IMG SRC="images/login_2.jpg" WIDTH="120" HEIGHT="349"></TD>
<TD ROWSPAN="2">
<IMG SRC="images/login_3.jpg" WIDTH="191" HEIGHT="349"></TD>
<TD ROWSPAN="2">
<IMG SRC="images/login_4.jpg" WIDTH="85" HEIGHT="349"></TD>
<TD>
<IMG SRC="images/login_5.jpg" WIDTH="190" HEIGHT="191"></TD>
<TD>
<IMG SRC="images/login_6.jpg" WIDTH="169" HEIGHT="191"></TD>
</TR>
<TR>
<TD WIDTH="190" HEIGHT="158" valign="top" background="images/login_7.jpg"><table width="100%" height="97" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="60%" height="97" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5">
<asp:Label id="errors" runat="server" ForeColor="Red"></asp:Label></td>
</tr>
</table>
<table width="95%" border="0" cellpadding="0" cellspacing="0" class="css">
<tr>
<td height="30" colspan="2">
用户名:
<asp:TextBox id="username" runat="server" CssClass="bd" Width="94px"></asp:TextBox></td>
</tr>
<tr>
<td height="27" colspan="2">
密 码:
<asp:TextBox id="password" runat="server" CssClass="bd" Width="94px" style="IME-MODE:disabled" TextMode="Password"></asp:TextBox></td>
</tr>
<tr>
<td height="27" colspan="2">
验证码:
<asp:TextBox id="yanzhengma" runat="server" CssClass="bd" Width="44px" style="IME-MODE:disabled"></asp:TextBox> <asp:Image id="Image2" runat="server" ImageUrl="gif.aspx" />
<asp:Label id="yzsss" runat="server" Visible="False">Label</asp:Label></td>
</tr>
<tr>
<td width="136" height="29">
<asp:CheckBox id="jiyi" runat="server" Text="记住用户名密码"></asp:CheckBox>
<asp:LinkButton id="jiyichu" runat="server">[清楚记忆]</asp:LinkButton>
</td>
<td width="42%"><div align="center">
<asp:ImageButton id="ImageButton1" runat="server" ImageUrl="images/denglu.gif"></asp:ImageButton><a href="###" onclick="javascript: document.form.reset()"></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
<TD>
<IMG SRC="images/login_8.jpg" WIDTH="169" HEIGHT="158"></TD>
</TR>
</TBODY></form>
</TABLE>
</body>
</HTML>