ZBlog 学习笔记

09 February 2010 Jeff 沙滩脚印

今天在升级 Blog 之后，以前自己对后台程序作的修改丢失了。由于是很早以前修改的，现在却找不到应该在哪里修改了。这样造成的后果就是，发布代码时，存入数据库中的代码是我自己的写的，然后在页面上显示出来的代码却变得一团糟，因为后台程序在手写的代码上加入了其他的HTML代码标签。

我一般使用自己的代码显示标签（即 dp.SyntaxHighlighter 所提供的方式），而没有使用 ZBlog 自带的[code]标签。以前引用 dp.SyntaxHighlighter 时，对Blog后台程序进行了修改，从而在Blog中顺利地融入了 dp.SyntaxHighlighter。而现在要重新做这们的修改，却发现怎么也找不到当时的那个修改入口了。于是想偷懒，就去ZBlog程序开发交流区发问，如果让后台程序在发布文章后不要修改我写的代码内容。回答是：不可能（原文是“没有你想像的功能。”）。回答者是 haphic，我用过他开发的插件，很佩服他。但是他的回答给我泼了冷水，我决心透彻地研究一下ZBlog程序，使用比上次更好的方法来实现我自己的需求。

ASP 是弱类型语言，对于变量，若要保证变量是自己想要的类型，需要使用一些类型转换函数。ZBlog 将这一需求找包成一个统一的函数，很好。

'*********************************************************
' 目的：    检查参数，将弱类型 source 变量转换成指定的期望
'           类型的变量
'
' 位置：    /FUNCTION/c_function.asp
'
' 参数：    source  要检查的变量，是按引用传递的
'           strType 期望的参数类型
'           default 默认值
'
' 返回：    无错则返回True；
'           出错则转到ShowError(3)
'
' 日期      开发者      行为
' --------------------------------------------------------
' -         -           创建
' 2010-2-9  涂鸦        添加注释
'*********************************************************
Function CheckParameter(byRef source,strType,default)

	On Error Resume Next

	If strType="int" Then

		'数值
		If IsNull(source) Then
			source=default
		ElseIf IsEmpty(source) Then
			source=default
		ElseIf IsNumeric(source) Then
			source=CLng(source)
		ElseIf source="" Then
			source=default
		Else
			Call ShowError(3)
		End if
		If Err.Number<>0 Then Call ShowError(3)

		CheckParameter=True

	ElseIf  strType="dtm" Then

		'日期
		If IsNull(source) Then
			source=default
		ElseIf IsEmpty(source) Then
			source=default
		ElseIf IsDate(source) Then
			source=source
			Call FormatDateTime(source,vbLongDate)
			Call FormatDateTime(source,vbShortDate)
		ElseIf source="" Then
			source=default
		Else
			Call ShowError(3)
		End if
		If Err.Number<>0 Then Call ShowError(3)

		CheckParameter=True

	ElseIf strType="sql" Then

		'SQL
		If IsNull(source) Or Trim(source)="" Or IsEmpty(source) Then
			source=default
		Else
		    ' 将单引号'替换成连续的两个单引号'' - 涂鸦，2010-2-9
			source=CStr(Replace(source,Chr(39),Chr(39)&Chr(39)))
		End If

	ElseIf strType="bool" Then

		'Boolean
		source=CBool(source)

		If Err.Number<>0 Then
			Err.Clear
			If IsEmpty(source)=True Then
				source=True
			Else
				source=False
			End If
		End If

	Else
		Call ShowError(0)
	End If

End Function
'*********************************************************
Tags :

Add comment

Loading