www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\pay_topic.asp

    <!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<!--#include file="inc/md5.asp"-->
<%
dim AnnounceID
Mybbs.Loadtemplates("")
Mybbs.stats="订阅主题"
Mybbs.Nav()
GetBoardPermission
if Mybbs.UserID=0 then Response.redirect "showerr.asp?ErrCodes=<li>您还没有登录，请登录后进行操作。&action=OtherErr"
If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(7)=1) Then Response.redirect "showerr.asp?ErrCodes=<li>本论坛没有开启手机短信订阅主题功能。&action=OtherErr"

If request("id")="" Then
	Response.redirect "showerr.asp?ErrCodes=<li>非法的贴子参数。&action=OtherErr"
ElseIf Not IsNumeric(request("id")) Then
	Response.redirect "showerr.asp?ErrCodes=<li>非法的贴子参数。&action=OtherErr"
Else
	AnnounceID=Clng(request("id"))
End If

Mybbs.Head_var 1,Mybbs.Board_Data(4,0),"",""

Select Case request("action")
	Case "subinfo"
		call subinfo()
	Case "redir"
		call redir()
	Case Else
		Call inputmyinfo()
End select

Mybbs.footer()

Sub inputmyinfo()
Dim Rs
Set Rs=Mybbs.execute("select IsChallenge,usermobile from [dv_user] where userid="&Mybbs.userid)
If Rs("IsChallenge")<>1 Or IsNull(Rs("IsChallenge"))Then Response.redirect "showerr.asp?ErrCodes=<li>您还不是阳光会员，请先升级为阳光会员。&action=OtherErr"

%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr><th align=center colspan=2><form action="pay_topic.asp?action=subinfo" method=post>高级用户订阅主题</td></tr>
<tr><td class=tablebody1 align=right width="40%"><B>您的手机号码是</B>：</td>
<td class=tablebody1 width="60%">
<%=Rs("UserMobile")%>
<input type=hidden value="<%=Mybbs.BoardID%>" name="boardid">
<input type=hidden value="<%=AnnounceID%>" name="id">
</td></tr>
<tr><td align=center class=tablebody2 colspan=2><input type=submit value="提 交"></td></form></tr>
</table>
<%

Set rs=nothing
End Sub

Sub subinfo()
Dim Rs
Set Rs=Mybbs.execute("select IsChallenge,usermobile from [dv_user] where userid="&Mybbs.userid)
If Rs("IsChallenge")<>1 Or IsNull(Rs("IsChallenge"))Then Response.redirect "showerr.asp?ErrCodes=<li>您还不是阳光会员，请先升级为阳光会员。&action=OtherErr"
Dim mobile
mobile=rs("usermobile")
Set rs=nothing
Dim topic
Set rs=Mybbs.execute("select * from dv_topic where BoardID="&Mybbs.BoardID&" And topicid="&announceid)
If Rs.EOF And Rs.BOF Then
	Response.redirect "showerr.asp?ErrCodes=<li>您要订阅的主题并不存在、或已经被删除、锁定。请确认您提交的信息是否正确。&action=OtherErr"
Else
	topic=rs("title")
End If

'挑战随机数
Dim MaxUserID,MaxLength
MaxLength=12
set Rs=Mybbs.execute("select Max(userid) from [dv_user]")
MaxUserID=rs(0)

Dim num1,rndnum
Randomize
Do While Len(rndnum)<4
	num1=CStr(Chr((57-48)*rnd+48))
	rndnum=rndnum&num1
loop
MaxUserID=rndnum & MaxUserID
MaxLength=MaxLength-len(MaxUserID)
select case MaxLength
case 7
	MaxUserID="0000000" & MaxUserID
case 6
	MaxUserID="000000" & MaxUserID
case 5
	MaxUserID="00000" & MaxUserID
case 4
	MaxUserID="0000" & MaxUserID
case 3
	MaxUserID="000" & MaxUserID
case 2
	MaxUserID="00" & MaxUserID
case 1
	MaxUserID="0" & MaxUserID
case 0
	MaxUserID=MaxUserID
end select
Session("challengeWord")=MaxUserID

session("challengeWord_key")=md5(Session("challengeWord") & ":" & Mybbs.CacheData(21,0),32)

Set Rs=Mybbs.Execute("select top 1 * from Dv_ChallengeInfo")
Dim MyForumID,MyForumUrl,MyAdminID
MyForumID=rs("D_ForumID")
MyForumUrl=rs("D_Forumurl")
MyAdminID=rs("D_Username")

%>
正在提交数据，请稍后……
<form name="redir" action="http://bbs.ray5198.com/sub.jsp" method="post">
<INPUT type=hidden name="mobile" value="<%=mobile%>">
<INPUT type=hidden name="subjectId" value="<%=announceid%>">
<INPUT type=hidden name="subjectName" value="<%=topic%>">
<INPUT type=hidden name="forumId" value="<%=MyForumID%>">
<INPUT type=hidden name="forumUrl" value="<%=Mybbs.Get_ScriptNameUrl%>">
<input type=hidden value="<%=MaxUserID%>" name="chanWord">
<input type=hidden value="pay_topic.asp?boardid=<%=Mybbs.boardid%>&id=<%=announceid%>&action=redir" name="dirPage">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>
<%
set rs=nothing
end sub


sub redir()
dim rs
dim ErrorCode,ErrorMsg
dim remobile,rechallengeWord,retokerWord,resubjectid
dim challengeWord_key,rechallengeWord_key

ErrorCode=trim(request("ErrorCode"))
ErrorMsg=trim(request("ErrorMsg"))
remobile=trim(Mybbs.CheckStr(request("mobile")))
resubjectid=trim(Mybbs.CheckStr(request("subjectid")))
rechallengeWord=trim(Mybbs.CheckStr(request("chanWord")))
retokerWord=trim(request("tokenWord"))

'if not isnumeric(resubjectid) then
'	founderr=true
'	Mybbs.AddErrmsg "非法的参数1。" & request("subjectid")
'	exit sub
'end if

dim smsuserlist
select case ErrorCode
case 100
	challengeWord_key=session("challengeWord_key")
	If challengeWord_key=retokerWord Then
		'type=1订阅主题，type=2订阅论坛
		Set Rs=Mybbs.Execute("select username from [dv_user] where usermobile='"&remobile&"' and IsChallenge=1")
		If rs.eof and rs.bof Then
			Response.redirect "showerr.asp?ErrCodes=<li>您订阅主题失败。&action=OtherErr"
		Else
			Mybbs.membername=rs(0)
		End If
		Set rs=Mybbs.execute("select * from dv_topic where topicid="&AnnounceID)
		If Not (rs.eof and rs.bof) Then
			smsuserlist=rs("smsuserlist")
			If IsNull(smsuserlist) or smsuserlist="" Then
				smsuserlist=Mybbs.membername
			Else
				If InStr("$" & lcase(smsuserlist) & "$","$" & lcase(Mybbs.membername) & "$")=0 Then
					smsuserlist=smsuserlist & "$" & Mybbs.membername
				End If
			End If
			Mybbs.Execute("update dv_topic set smsuserlist='"&smsuserlist&"',issmstopic=1 where topicid="&AnnounceID)
		Else
			Response.redirect "showerr.asp?ErrCodes=<li>您订阅主题失败。&action=OtherErr"
		end if
		Set Rs=Nothing
	Else
		Response.redirect "showerr.asp?ErrCodes=<li>非法的提交过程。&action=OtherErr"
	End If
case 201
	Response.redirect "showerr.asp?ErrCodes=<li>您的密码输入错误，"&ErrorMsg&"。&action=OtherErr"
case 202
	Response.redirect "showerr.asp?ErrCodes=<li>您重复订阅了相关主题，"&ErrorMsg&"。&action=OtherErr"
case 203
	Response.redirect "showerr.asp?ErrCodes=<li>您订阅主题失败，"&ErrorMsg&"。&action=OtherErr"
case Else
	Response.redirect "showerr.asp?ErrCodes=<li>非法的提交过程，"&ErrorMsg&"。&action=OtherErr"
End Select
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th height=24>申请订阅主题成功</th>
</tr>
<tr><td class=tablebody1><br>
<ul><li>订阅主题成功，当本主题有人回复时，系统将会自动用手机短信通知您<br><li><a href="index.asp">进入讨论区</a></li></ul>
</td></tr>
</table>
<%
End Sub
%>